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ATTENTION! ! PLEASE READ 
THIS!!! NORTHERN BYTES is mailed free of charge to any 
and all computer clubs and user groups THAT EXCHANGE 
NEWSLETTERS WITH US. Even though we have increased our 
mailings to such clubs and user groups, we have received 
correspondingly fewer and fewer exchange newsletters. By 
failing to send us an exchange newsletter, your club is hurting 
itself in two ways! 

1) You will NOT receive any more issues of NORTHERN 
BYTES after this one (at least not on a regular basis), and 

2) When we get an inquiry from someone in your club's 
geographical area, as sometimes happens, we will not suggest 
that they contact your group because we won't have any way of 
knowing whether or not your club is still in operation, 
There's a third shortcoming as well - in the future I MAY decide 
to publish a list of active TRS-SO user groups, and if we haven't 
heard from you, you won't be on it. 

We also exchange with some non-club-related 
PUBLICATIONS (or at least, have attempted to exchange with 
them), but have had no response from a few of these. If you tall 
into this category, this is your last issue as well, unless we h^ar 
from you! 

A POSTCARD CAN KEEP YOUR GROUP ON THE ACTIVE 
LIST, if your club or user group does NOT publish a newsletter or 
has temporarily suspended publication. We may ask you to send in 
a card once or twice a year, but we'll let you know when. Just 
drop us a postcard giving the name and address of your TRS-SO 
club or user group and the approximate number of members in your 
group. If we've never heard of you before, we reserve the right to 
ask for some verification of your club or user group status <a copy 
of a meeting announcement, a newspaper ad or article promoting 
your club, etc.) 

PLEASE CHECK OUR ADDRESS ON YOUR RECORDS - Part 
of the problem may be that our local post office sometimes 
"loses" mail that is not addresses correctly. In particular, 
PLEASE check that you do not have "LOT # 55" as part of our 
address. This is incorrect and if a substitute mail carrier is 
working the day you newsletter arrives, we may never bee it. The 
correct lot number is 155. It's amazing how many people seem to 
miss that first "1" even though it's in plain sight. The ONLY 
correct address for NORTHERN BYTES is as follows) 

NORTHERN BYTES 

c/o Jack Decker, editor (this line is optional) 

1S04 West 18th Street Lot # 155 

Sault Ste. Marie, Michigan 49783 

Please don't assume that just because you know (or irh'.nk) 
that you're sending us your newsletter, that you have our address 
correct in your records, MANY of the exchange newslette s we 
receive have an incorrect address!! Some come addressed 'n 
"Microcomputer Users International", an organization that no 
longer exists, and some come addressed to The Alternate Source 
(sometimes at the Lansing address, no less), which is NOT usua;ly 
recognized by the post office up here. Sault Ste. Marie is abo.it 
250 miles away from The Alternate Source! 

THIS IS FOR EVERYONE, whether you're connected with a 
user group or not. If you need to contact me in a hurry, and 
especially if you have text intended for the newsletter, please 
send it via MCI Mail if possible. I check MCI Mail regularly both 
from Sault Ste. Marie, and from Lansing when I am dawn thete (a 
distinct advantage of electronic mail - it can follow me where e I 
go 1 ), However, whenever you send ANYTHING via MCI Mail, 
PLEASE include your regular return address. This is doubly 
important when you are ordering merchandise from The Alternate 
Source, since it is pretty hard to mail books or diskettes over a 
MODEM, 

Some confusion seems to exist over what should be sent 
where, when dealing with NORTHERN BYTES or THE ALTERNATE 
SOURCE. Here are some guidelines! 



1) If you're sending something via MCI Mail, don't sweat it, 
You can even combine TAS orders and newsletter submissions in 
the same message. This applies ONLY to MCI Mail users. 

2) Exchange newsletters, submissions or other editorial 
material for Northern Bytes and/or the TAS Public Domain 
Software Library (which we a.sgme you are contributing to the 
public domain), subscription problems with Northern Bytes (former 
Opinion-30 subscribers only 1 ! and ALL requests for current or 
back issues of NORTHERN BYTES to be mailed OUTSIDE of the 
U.S.A., Canada, or Mexico should be sent to NORTHERN EYTES at 
the return address on this newsletter (the Sault Ste. Marie 
address). Also, if you have been instructed by TAS to 
communicate with me directly in regard to a particular project, 
follow those instructions. 

3) All orders for merchandise (including back issues of 
Northern Bytes if you live in the U.S.A., Canada, or Mexico), 
requests for general information about the TAS Public Domain 
Software Library, or program submissions for The Alternate 
Source (programs for which you expect to receive a payment 
and/or royalties MUST be sent to The Alternate Source!) should 
be sent to TAS at 704 North Pennsylvania Avenue, Lansing, 
Michigan 48906. 

Speaking of SUBMISSIONS, we need them if we are to 
continue publishing Northern Bytes Unless you specifically state 
otherwise, we assume that all submissions to NORTHERN BYTES 
are eventually intended to be placed in the public domain, so they 
may show up on a TAS Public Domain Library disk at some paint. 
Keep in mind that cont" butors to NORTHERN BYTES receive the 
next six issues FREE (assuming we publish six more issuesi which 
we don t guarantee), and at this paint that's the ONLY way to get 
a "subscription" to this newsletter 1 And, you also have our 
heartfelt "Thanks'" for anything you contribute. 

Starting next issue, we'll be adding expanded coverage of 
the FORTH language to NORTHERN BYTES. We've asked Paul 
Snively to edit a FORTH related column, and he has said he'd be 
happy to do it, so if you have questions, comments, tips, 
techniques, etc. about the FORTH language, send them to Paul c/o 
The Alternate Source (for the time being, I'll give you another 
address later on), or directly to Paul via MCI Mail at 176-6817. 

Do any of you folks program on the SANYO personal 
computer, or do you know of anyone that does? Do you have any 
interest in the SANYO"' If so, please send a postcard or letter to 
Th= Alternate Source, indicating your interest and/or level of 
sxpertise (if any). It's quite possible that TAS may offer 
expanded support for the Sanyo line in the future, if there is any 
nterest. We've d-scovered that several TRS-80 owners (including 
same whose names you'd probably recognize) have recently 
squired the Sanyo so naturally we're interested. As for 
coverage in NORTHERN BYTES, well, I'm not sure I want to try to 
support two brands here< but anything's possible. I'd just LOVE 
:q gst an article from someone reviewing the Sanyo, and perhaps 
pointing out the similarities and differences between it and the 
TRS-SO. Who knows, we might even do a totally separate 
publication just for Sanyo owners one of these days* 

Do we owe you anything" 1 Occasionally we may promise 
someone something, and 'her; forget about it, or we may have kept 
a disk that you sent us (with a contribution to NORTHERN BYTES 
on it) when you expected us to return it. If so, don't be shy about 
reminding us. A postca»d will do, and it's a lot better that 
thinking bad thought? about us forever more. We're only human, 
too. By the way, when you send us a contribution on disk and you 
want the disk back, please SAY SO' You think we'd naturally 
assgme that" Well, not really, because a lot of people save "junk" 
diskettes (for example, a disk that won't format properly on the 
last five tracks) and use them to send articles to newsletters and 
the like. In many cases, they hope they never see that disk again' 
People tell us that we can keep the disk so often that we tend to 
not notice when someone doesn't say anything about it. We 
automatically return disks submitted to the TAS Public Domain 
Software Library (as stated in the information sheet), but there 
fn3 v be a delay o c a couple months or more, so please be patient 



change! 


2b 01 CD 


to! 


26 38 CD 


change! 


00 00 00 


to! 


00 38 00 


change! 


00 00 CD 


to! 


00 38 CD 


change! 


11 00 CD 


to! 


1 1 33 CD 



THL EXTERMINATOR - Another attack of the toiler BUGS to 
vanquish from previous issues of NORTHERN BYTES! 

Back in Volume -5, Number i we told you haw to move the 
Model 4 ROM into RAM. We also printed a zap for NEWDOS/80 to 
kpep it from clobbering the ROM area of memory after "it has been 
transferred to RAM. Trouble is, with NEWDOS/80 one zap is not 
enough. So far we've found four that need to be made, and we're 
still counting. The four zaps we have so far are as follows! 



stso/sys,o2,abh; 
sys6'5ys,13,dch! 

SYSt/SYS,::0,EEH! 
SYS1?/SYS,04,29H! 



The above zaps move the location of a "L«t bucket" used 
during disk verify operations from 0000H or 0100H to 3800H (the 
memnry-mapped keyboard area, which is still considered a 
"read-only' 1 section of memory). The second through fourth zaps 
(to SYS6/SYS and SYS1VSYS) fix similar problems that occur only 
when the FORMAT and BASIC "SAVE" commands are executed. 
Thanks to GREG SMALL from Stouffville, Ontario, Canada! 
LYMAN EPP of Omaha, Nebraska! and VERN HESTER of 
Cosmopolitan Electronics Corporation (author of MULTIDOS and 
ZEUS) for contributing these zaps. 

Users of VIDE04 (a program sold by The Alternate Source, 
that lets you utilize the Model 4 24x80 video display while 
operating in the "Model III mode") should be sure to apply ALL of 
the above zaps to any NEWDOS/80 system disk that will be used 
with VIDE04. None of these zaps adversely affects the normal 
operation of NEWDOS/80. 

Turning to the last issue (Volume 5, Number 4) of 
NORTHERN BYTES, we almost had a bug in "The Exterminator" 
column! If you read this column last time, you may recall Paul 
Snively's comments about not closing SETDATE/CMD, and his 
method of getting around it. Problem was, about an hour before 
we started printing that page we discovered that SETDATE 
wouldn't work at all under Model III TRSDQS 1.3 with Paul's 
patches installed! We quickly inserted a notice to that effect on 
the master copy of that page, but didn't have time to redo the 
page. So, for the record, the "official" version of SETDATE (as 
found on the latest version of TAS Public Domain Library disk 
t 001) does NOT include Paul Snively's patches (it doesn't need 
them, anyway), but DOES include the OR A instruction inserted 
at line 2045 of the original version of the SETDATE source code 
(which is required for proper operation). Lest you think too 
harshly of Paul, he owns a Model I and his suggested patches DO 
_work with every DOS except TRSDQS 1.3! 

In the same issue (Volume 5, Number 4i page 15), Paul 
Snively also provided a subroutine to determine the double 
density adapter in use on a Model I (Radio Shack or non-Radio 
Shack). We neglected to mention that the code segment was 
originally authored by Vern Hester of MULTIDOS fame, and also 
neglected to state that the fourth instruction from the end [the 
second occurrence of LD (IY+2),EJ resets a Radio Shack type 
doubler to single density (but does npt affect a non-Shack 
doubler). This instruction should be removed if it is desired to 
leave the doubler in double density mode. 

* BINARY CLOCK by Jack Decker - Here's a program that you 
can use to fascinate kids, or maybe as a quick answer to the 
age-old question, "But what can you DO with a computer?" If you 
really need some justification to type it in, try to convince 
yourself that it's educational because it teaches the binary 
counting system. 

Basically, this is a machine-language version of a binary 
clock program that was once used as a giveaway by The Alternate 
Source. The original program was in BASIC and had only one 
problem - it ran too slow to keep up with the march of time! It 
worked fine if you had a CPU speed-up or if you compiled it, but 
otherwise ... well, now you know why it was a giveaway! 

This version runs plenty fast (in fact, a bit of delay has been 
added for "effect"), but it's still not the world's most practical 
program' Still, it's short and makes a good demonstration 
program - it has visual impact, if nothing else! 

One final note - each time division (hours, minutes, and 
seconds) are counted in increments from 0-59 or 0-23, represented 
by eight-bat byte. Each byte is visually subdivided into two 
four-bar halves, but should be considered as one byte, and NOT as 
two Binary Coded Decimal digits! It wouldn't be too difficult to 
convert the program to display the bars in a BCD pattern, but I'll 
leave that as an exercise for ths reader. Here's the program 
listing! 



7100 


ootoo 


ORG 


7000H 




7100 FB 


00110 START 


EI 




[Enable Interrupts 


7001 CDC901 


00121 


CALL 


01C9H 


{Clear Screen 


7004 Z1A970 


00130 QUERY 


LD 


HL.HSG 


{Point to question 


7007CD47H 


00110 


CALL 


4467H. 


{Disp lay it on video 


700A CM900 


00150 


CALL 


I019H 


iHait for user response 


700D EOF 


00160 


AM) 


IDFH 


iChange loner to uprcasr 


700FFE59 


00170 


CP 


T 


}T or "y" response? 


7011 2MC 


00180 


JR 


Z,YES 


{Go if so 


7013 FEfE 


00190 


CP 


'N' 


i"N" or V response? 


7015 2807 


00200 


JR 


Z.NO 


(Go is so 


7017 FE01 


10210 


CP 


1 


KBREAJO key pressed? 


7019 20E9 


00220 


JR 


KZ.OUERY 


{Get another key it not 


701B C3ZD40 


00230 EXIT 


JP 


102DH 


{Exit to DOS READY 


701E37 


00210 NO 


SCF 




jSet carry f 1m = NO 


701FF5 


00250 YES 


PUSH 


AF 


{Save carry flag status 


7020 COC901 


002*0 


CALL 


01C9H 


{Clear Screen 


70Z3 CD8970 


00270 


CALL 


BORDER 


{Put top i cotton borders 


702* CO2600 


00280 RESTRT 


CALL 


I02BH 


{Check for key depressed 


7029 X 


00290 


DEC 


A 


{If it was <BREAK>, A*0 


702A28EF 


00300 


JR 


Z.EXIT 


{Exit if <BREAK> 


702C 214110 


00310 


LO 


HL.IMIH 


{"Seconds" byte in Hod I 


702F 3AS40Q 


00320 


LD 


A,(54H) 


{Get Hod I/in test byte 


7032 3D 


00330 


DEC 


A 


'JA=0 if Model I 


7033 2803 


00340 


JR 


Z.HODt 


[Go if Hodel I 


7035 211712 


00350 


LD 


HL,1217H 


{"Seconds" byte in Hod 3 


7038 IE 


00360 H0D1 


LO 


C.(HU 


{Get initial seconds val 


7039 7E 


00370 LOOM 


LD 


A,(HL) 


{Get new seconds value 


703AB9 


00380 


CP 


C 


{Has value charged? 


7038 28FC 


00390 


JR 


Z.LOOPA 


{Halt for change if not 


703DF1 


00400 


POP 


AF 


{Get Carry flag status 


703EF5 


00110 


PUSH 


AF 


{Also re-save it 


703F 380C 


00120 


JR 


CNODSP 


{Go if no date/tine disp 


7011 E5 


00130 


PUSH 


HL 


{Save "seconds" pointer 


7012 21073F 


00110 


LD 


HL.3FD7H 


{Point to video location 


7015 CD7M1 


00150 


CALL 


«70H 


{Display date 


7018 23 


00160 


INC 


HL 


{Skip a space 


7019 CMDH 


00170 


CALL 


44ADH 


{Display tine 


701CE1 


00180 


POP 


HL 


{Restore "seconds" pntr 


704D EB 


00190 NODSP 


EX 


DE.HL 


{"Seconds" byte ptr in DE 


704E 21B03C 


00500 


LD 


HL.3CB0H 


{Top of last tine bar 


7051 0*03 


00510 


LD 


8,3 


{0 of tine storage byte* 


7053 C5 


00520 L0OPB 


PUSH 


BC 


{Save storage byte count 


7051 0602 


00530 


LD 


8.2 


|t nybbles per tine byte 


7056 1A 


00510 


LD 


A, IDE) 


{Get current tine byte 


7057 C5 


00550 LOOPC 


PUSH 


BC 


{Save nybble count 


7053 0401 


00560 


LD 


8,1 


!* tine bars per nybble 


705A OEEF 


00570 LOOFU 


LD 


COBFH 


{C = Graphics block char 


705C IF 


00580 


RRA 




{Get bit fron tine byte 


705D 3802 


00590 


JR 


CSET 


{Go if bit was set (ON) 


705F OE20 


00600 


LD 


C20H 


{C = Space char (bar OFF) 


7061 E5 


00610 SET 


PUSH 


HL 


{Save video loc pointer 


7062 D5 


00620 


PUSH 


DE 


{Save tine byte pointer 


7063 C5 


00630 


PUSH 


BC 


{Save tine bar counter 


7064 060C 


00610 


LD 


B.OCH 


!* vertical graphic Picks 


7066 111000 


00650 


LD 


DE.10H 


{Length one video line 


"069 71 


00660 LOOPE 


LD 


(HL),C 


{Put character on video 


706A 19 


00670 


ADD 


HL,DE 


{Hove down or* line 


70AB 10FC 


00680 


DJNZ 


LOOPS 


{Do til vertical bar done 


706D F5 


00690 


PUSH 


AF 


{Save tine byte 


706E 010001 


00700 


LD 


BC.0100H 


{Tine delay counter 


7071 CD6000 


00710 


CALL 


0060H 


{Call RON delay routine 


7071 Fl 


00720 


POP 


AF 


{Restore tine byte 


7075 CI 


00730 


POP 


BC 


{Restore tine bar counter 


7076 Dl 


00740 


POP 


DE 


{Restore tine byte pntr 


7077 El 


00750 


POP 


HL 


{Restore video loc pntr 


7078 28 


00760 


DEC 


HL 


{Backup two spaces to top 


7079 2B 


00770 


DEC 


HL 


{ of ne;:t vertical bar 


707ft 10DE 


00780 


DJNZ 


LOOPD 


{If nore bits this nybble 


707C 28 


00790 


DEC 


HL 


{Backup two extra spaces 


707D 28 


00800 


DEC 


HL 


{ between nybbles 


707EC1 


00810 


POP 


BC 


{Restore nybble count 


707F 1006 


00820 


DJNZ 


LOOPC 


JIf only 1st nybble done 


7081 26 


00830 


DEC 


HL 


{Backup two extra spaces 


7082 28 


00810 


DEC 


HL 


{ for hours-niris-secrids 


7083 13 


00850 


INC 


DE 


JBunp tine byte pointer 


7081 CI 


00860 


POP 


BC 


{Restore tine byte count 


7085 10CC 


00870 


DJNZ 


LOOPS 


{Do regaining byte if any 


7087 1890 


00880 


JR . 


RESTRT 


{Else wait for red second 


7089 21013C 


00890 BORDER 


; LD 


HL.X01H 


{Point to top border loc 


708C CD927C 


OO'OO 


CALL 


TBORD 


{Put top horde- on video 



703F 21C13F 
7092 3E03 
70<"l OE02 
7096 0661 
7098 3ABF 
709A 23 
709E: 23 
709C 10FA 
709E 23 
709F 23 
70A0 00 
70A1 20F3 
70A3 23 
70A1 23 
70A5 3D 
70A6 20EC 
70A8 C9 
70A9 OAOA 
70AE 11 



OO910 
00920 
00930 
00910 
00950 
00940 
00970 
00980 
00990 
01000 
01010 
01020 
01030 
01010 
01050 
01060 
01070 
01080 
01090 



TEORD 
BLOOPA 
6LOCPB 
BLOOPC 



display (Y/N)?' 

69 73 70 6C 61 

61 61 71 65 20 

66 20 76 69 61 

28 59 2F € 29 

70E2 0D 01100 

7000 OHIO 

00000 TOTAL ERRORS 



HSG 



79 20 
61 71 
65 6F 
3F 



LD 

LD 

LD 

LO 

LD 

INC 

INC 

DJNZ 

INC 

INC 

DEC 

JR 

INC 

INC 

DEC 

JR 

RET 

DEFH 

DEFM 

71 69 60 
20 62 6F 
20 61 69 

DEFB 
END 



HL.3FC1H 

A,3 

C,2 

EM 

(HL),0BFH 

HL 

HL 

BLOOPC 

HL 

HL 

C 

NZ.BLOOPB 

HL 

HL 

A 

NZ.BLOOPA 

0A0AH 
'Display tine 



JPnt to lower border loc 
i* of bytes to display 
;♦ of nybbles per byte 
;* of bits (bars)/nybble 
jFvt graphic blk on video 
JBwtp video location pntr 
{Skip space between blcks 
JDo all 1 bits of nybble 
JSkip two extra spaces 
*, between nybbles 
JDecrenent nybble count 
}Go if only 1 nybble done 
JSkip two More extr3 spcs 
; between hrs-nins-secs 
{Decrement byte count 
JGo if nore to display 
)(Roijtine calls itself!) 
JTwo line feeds 
and date at botton of video 



65 20 61 6E 61 20 
71 71 6F 6D 20 6F 

73 70 6C 61 79 20 

ODH 
START 



;<CR> (tessaqe terninator 



BLOOPA 7091 BLOOPB 7096 ROOPC 7098 

LOOPA 7039 LOOPB 7053 LOOPC 7057 

MODI 7038 HSG 70A9 NO 701E 

RESTRT 7026 SET 7061 START 7000 



BORDER 7089 EXIT 701B 

LOOPD 705A LOOPE 7069 

NODSP 701D OUERY 7001 

TBORD 7092 YES 701F 



FOFTH-WISE by Paul Snively [Editor's note! Paul is going 
to be doing a regular FORTH column for NORTHERN BYTES, so if 
you have anything FORTH-related to contribute - anything at all 
- or if you've got questions about FORTH that you'd like 
answered, please contact Paul directly at MCI Mail I.D. 176-6817, 
or in care of The Alternate Source.] 

I've come up with a few things Forth-wise that might be of 
interest to TASForth users. Anyway, here goes! 

Some implementations of Forth allow recursion. There are 
basically two ways to do this. One is to allow the use of the word 
currently being defined within the word itself. This technique is 
not frequently used because it conflicts with the standards set up 
for Forth's functioning. The other is to include a word called 
MYSELF within the Forth vocabulary which, when included in a 
definition, compiles the code field address of the word being 
defined into the word. Well, after about 10 minutes of tinkering 
and referring to the TASForth manual, I came up with MYSELF for 
TASForth. This word, which makes the TASForth system 
considerably more powerful than it was (in terms of recursive 
capabilities) has been placed in the public domain by Paul F. 
Snively. 

! MYSELF SMUDGE LATEST PFA CFA , SMUDGE } IMMEDIATE 

That's all there is to it! How is it used? Well, let's give an 
example. Suppose we wanted to calculate N!, where N! is defined 

as! 

N 1 = 1 if and only if N = 

N * (N-D! if and only if N > 

As you can see, N' is a recursive function! that is, it's 
defined in terms of itself. Without MYSELF, TASForth couldn't 
handle the classical N! definition. With MYSELF, however, the 
definition is easy. It's! 

! FAC DUP 0= IF DROP 1 ELSE DUP 1- MYSELF * THEN j 

I won't bother to describe the logic! anyone who's interested 
enough in Forth to want to do recursion will be able to see what's 
happening in FAC easily enough. 

There's another Forth-related Bulletin Board that I forgot 
to mention in my article last issue! it's at (415) 533-3580, and 
they have OODLES and OODLES of Forth goodies. What kind of 
Forth goodies'' Well, here's one (placed in the public domain by 
Marc Perkel.) The following is the documentation provided by Mr. 
Perkel, cleaned up and corrected by Paul Snively. 

"ARGUMENTS-RESULTS! Local reentrant variables for Forth 
Overview! One thing Forth lacks that other languages have is 



local reentrant variables. By local I mean that they serve as 
temporary storage for stack items in situations in which the stack 
would be too jumbled if used with conventional methods, i.e., 
SWAP, ROT, OVER, PICK, ROLL, etc. (See examples.) What I 
mean by reentrant is that all local variable names act only in their 
own definition. That means that local variable S6 in one 
definition will contain a different value than S6 in another 
definition. This is the factor that separates local and global 

variables. , , 

"The technique used is shown in high level code but when 
written in native code runs almost as fast as equivalent code 
using conventional means. In fact, on the 68000, it will run faster 
since the 68000 has included an addressing mode that uses my 
technique exactly (LINK and UNLINK.) 

"The technique used allots stack space to be used as 
temporary storage of transient parameters. The stack pointer is 
moved down in memory and a pointer is set pointing to the 
allotted local variable space. Before the pointer is set, however, 
the pointer's previous contents are saved on the return stack. 

"Arguments-results does not make any changes necessary in 
the present standard! it merely adds to it. Its main disadvantage 
is that it is so easy to use that it will be used too often. It is 
intended for use only when the stack would get too nasty 
otherwise. It is also a stack hog." 



Source code in high level Forth! 

VARIABLE <!ARG!> VARIABLE <!TO:> 
! +ARG iBUILDS , DOES> @ CARGO @ SWAP 
<i FIND @ O LITERAL CTOO ! J 



•CTOO @ EXECUTE 



+ARG SI 
8 +ARG 55 
16 +ARG S9 



2 +ARG S2 
10 +ARG S6 



4 +ARG S3 
12 +ARG 57 



6 +ARG S4 
14+ARGS8 



! TO <! FIND ! !> LITERAL CTOO ! ! 
; +TO C FIND +! !> LITERAL CTOO ! ! 

i ARGUMENTS ( n - ) R> <!ARG!> @ >R >R SPG OVER 2 * + CARGO 
! 9 SWAP - DO LOOP C FIND @ !> LITERAL CTOO ! ! 

! RESULTS ( n - ) 2 * CARGO @ SWAP - SP@ - 2 / DO DROP 
LOOP R> R> <!ARG!> ! >R ! 

(ARGUMENT EXAMPLE Box comes in with height, length & 

width and leaves volume, surface area & length of edges)! 



BOX 

( VOLM ) 
( SURF ) 
( EDGE ) 



3 ARGUMENTS 

SI S2 S3 * * 

SI S2 * S2 S3 * SI 

SI S2 S3 + + 4 * 

TO S3 TO 52 TO SI 

3 RESULTS ! 



S3 



CONVENTIONAL CODING OF BOX, 2 EXAMPLES! 



BOX 



>R 2DUP R@ * * R> SWAP >R 

>R 2DUP * SWAP ROT 

DUP R@ * SWAP ROT 

DUP R@ * 5WAP ROT 

r> + + 4 ♦ >R 

+ + 2 * R> R> ROT SWAP ! 



! 3DUP 3 PICK 3 PICK 3 PICK ', 

! VOLUME » * ! , , 

! S-AREA >R 2DUP * SWAP ROT R@ * SWAP R> * + + l * , 

! EDGES + + 4 * ! 

! BOX 3DUP EDGES >R 3DUP S-AREA >R VOLUME R> R> ', 

Well, there it is. Neat, huh^ These words really make 
coding complicated words much simpler, even though there's a 
pretty hefty price to pay in terms of speed, Someone could 
conceivably code his word using ARGUMENTS-RESULTS and then 
recode them after debugging using the conventional stack words, 

By the way, there is a bug in early versions of the Forth 
assembler. On screen 57 (I think) the word RST, should be defined 

as! ! RST, 8 * C7 + ! 

if the RST, word is to work as it is described in the manual, 

All of the above information is in the public domain, and may 
be freely reprinted or placed on your local Bulletin Board System. 



NEWCm^iL^^M.BUMPlp^lSJLRJiEJEEOGBAM - This 
program was written by Ron Zajat and allows you to dump the 
current video display to a disk file, which could be useful in any 
number of applications. Assemble the program using the filename 
SD456/CMD for the object code. Then, when you will need to use 
this feature, type SD456 from NEWDOS/80 READY. After that, 
you may depress the "45t" keys simultaneously to dump a 
"snapshot" of the video display to a disk file. A prompt will 
appear (temporarily) asking you for the name of the file you wish 
to create. Once you give a filename, the contents of the video 
display (BEFORE the prompt appeared) is saved to disk (graphics 
and "special" characters are saved with their normal ASCII 
values). The display is then restored to its original appearance 
(the filename prompt is removed and the original video display is 
restored). 

This program ties into the interrupt chain, so it will not 
work properly if interrupts are disabled, It will work on the 
Models I and III, and the Model 4 in the Model III mode only. 

Note that the source code listing below was originally 
created using ALE (the Full Screen Editor and Z80 Assembler 
program sold by TAS), although the output was modified slightly 
for publication. Any Editor-Assembler program could be used to 
assemble the source code, however, some assemblers do not 
permit multiple bytes in a DEFB statement. In that case you will 
have to assign each byte value in a DEFB statement to its own 
DEFB statement. In other words, a line of the formt 

DEFB 23,47,59 
would have to be changed to! 

DEFB 23 
DEFB 47 
DEFB 59 

You would have to make this change if you were using the 
original Radio Shack Editor-Assembler or one of its variants 
(including the Apparat version supplied with NEWDOS/80). 

If you don't feel like typing this program into your TRS-80, 
both source and object code versions of the program will be 
available on a TAS Public Domain Library diskette. The source 
code listing follows! 



0(1101 
01118 
90128 
18138 
80118 
98158 
00160 
10171 
01188 
09199 

88200 I35B 
00218 3C08 
00220 1019 
00230 Ull 
00210 1118 
00258 1178 
10260 
00270 5210 
00288 

88290 5208 
60300 S280 
B831fr 5283 
00328 5201 
00338 5204 
00310 5289 
88350 528C 
60360 520F 
00378 5212 
00380 

99390 5215 
00100 5218 
99118 5218 
09128 521C 
08138 521D 
•8410 521F 
88159 5222 
00168 5225 
08170 5226 
00180 5227 
08198 5229 
90500 
00518 522A 



««mi«m iiimiiiiii 

I I 

I Screen Dump to Disk file « 
i under * 

» NEHDOS/89 i 

l i 

i by Ran A. Zajac i 

i i 

mmmiKiimimi inn 



09529 5220 


C05D52 




CflLL 


REPLCE 




09530 5230 


218000 




LD 


HL,PT2-0HPSCH*1 




08510 5233 


CD5D52 




CALL 


REPLCE 




99550 5236 


218A0O 




LD 


HL,PT3-DKPSCNH 




90560 5239 


CD5D52 




CAUL 


REPLCE 




80570 523C 


219709 




LD 


HL.PTUHfSQrH 




09580 523f 


C05D52 




CALL 


REPLCE 




00590 5212 


219F99 




LD 


HL.ERROR-DHPSQM 


80600 5215 


C05052 




CALL 


REPLCE 




90619 5218 


216600 




LD 


HL,PT6-DHPSCN*1 




09629 5248 


CD5D52 




CALL 


REPLCE 




09639 524E 


210599 




LD 


HL,N0FILE-0HPSCN+1 


99610 5251 


C05D52 




CALL 


REPLCE 




99650 












09660 5251 


C019H 


ENQ 


CALL 


EN0UE1 


[Enqueue "156" scan/dm* 


90670 5257 


216A52 




LD 


HL.ENTNSS 




99689 525A 


C367H 




JP 


H67H 


(Send opening ness. to display 


99690 




* 






Exit to DOS 


90799 












09710 5250 


19 


DEUCE 


ADO 


HL.DE 


{Get address of label 


09729 525E 


1E 




LO 


C,(HJ 




09739 525F 


23 




DC 


HL 




09719 5260 


16 




LD 


B,(HL) 


JBC <— displacement 


09759 5261 


05 




PUSH 


DE 


(Save start address 


09769 5262 


EB 




EX 


DE.HL 




99779 5263 


99 




ADD 


HL.BC 


{Add Start to Displacement 


99789 5261 


EB 




EX 


DE,HL 


{Get address into HL 


90799 5265 


72 




LD 


(HL),D 




99899 5266 


2B 




DEC 


ML 




99810 5267 


73 




LD 


(HL),E 


!(HL) <- new LD/JP vector 


09829 5268 


01 




POP 


DE 


{Restore Start address 


09830 












99840 5269 


C9 




RET 






09859 












99869 526A 




ENTHSS 


ECU 


9 




09879 












09889 




i 


This is the "SD156" banner message graphics - 


99899 












99999 526A 


9A 




DEFB 


19 




99919 5266 


29292929 




DEFB 


32,32,32,32,32,3Z,32,32,32,32,32,32,1H,161 




292929292929292990A1 






99929 5279 


89992929 




DEFB 


137,141,32,32,32,152,151,131,137,32,154,151 




2998978389299A97 








99939 5285 


83A99929 




DEFB 


131,169,114,32,32,169,171,32,32,169,175,131 



TJfXEY 

SCREEN 

HD9ZH1 

HBCH3 

EMQUE1 

ENDUES 



LDSTRT 



3A5190 

X 

289F 

211111 

221652 

222952 

217B44 

225552 

2A1918 

91C192 

B7 

E5 

FJM2 

221919 

119356 

El 

EB 

E0B8 

13 

211599 



Mil 



NK2 



ECU 
ECU 
EQU 
EQU 
EQU 
ECU 

ORG 

EQU 

LD 

DEC 

Jt 

LD 

LD 

LD 

LD 

LD 

LD 

LD 

OR 

PUSH 

SBC 

LD 

LD 

POP 

EX 

LOOK 

DC 

LD 



I35BH 
3C99H 
19HH 
HUH 
U19H 
H7BH 

5299H 

i 

A, (5*) 

A 

Z.HH1 

nLtrQfiuu 

<HH1H),HL 

(HH2+D.HL 

HL,ENQUE3 

(EHQ+D.HL 

HL,(HD93tt) 

BC,E»IHG-DNPSC1( 

A 

HL 

H,BC 

(KD€M),ML 

DE,E»IHG-1 

HL 

DE.HL 

DE 

HL,PT1-0MPSCHH 



99950 5290 
09969 529F 

{Loads ACC w/ current keystroke 10971 52*9 

{CRT Hemory 

{Hod I HBO 

{Mod in/1 WHEN 

{Hod I Enqueue Interrupt 

{Hod m/4£iweue Interrupt 



99989 52AD 



99999 52B9 



91909 52C5 
01010 5201 

{Check if hod I or m/1ji028 5ZD6 

01030 52D7 
{Go if Model I 

{Model m NEH SHE 01910 52E5 
{Patch into program 

01950 52F1 
{Hod HI Enqueue Routine 
{Patch into program 91969 52FD 



{Get HEH SIZE 
{Get program length 
{Clear carry flag 

}ht <- new MEM SIZE 
{Posit new HEH SIZE 
{DE <— Rev. Source 
{HL <- Destin. 
!HL=Source / DE=Oestin. 

{DE <- Start Program 



29A9AE2929A9AFB3 

99919 5291 83812929 DEFB 131,129,32,32,169,158,129,32,32,32,152,161 
A99E8129292998A1 

8499 DEFB 132,141 

9A DEFB 19 

29292929 DEFB 32,32,32,32,32,32,32,32,32,32,132,153,162 
2929292929298499A2 

BWA281 DEFB 132,153,162,132,32,32,137,178,137,111,32,149 

292989B289992995 

95Z09595 DEFB 119,32,119,119,32,152,171,179,32,32,139,111 

2l98tfMtt202l8280 

AC992929 DEFB 172,141,32,32,184,183,176,32,32,32,166,136 

B8B7B9292929A6B8 

91A4B891 DEFB 115,166,136,115,132 

84 

9A DEFB 19 

29292929 DEFB 32,32,32,32,32,32,32,32,32,32,32,32,129,131 

29292929292929298186 

98812929 KFB 152,129,32.32,136,176,176,157,129,32,189,177 

88B9B99D8129BOB1 

60872082 DEFB 176,135,32,139,131,171,159,131,32,161,176,186 

83AB968329AW96A 

86298AB5 DEFB 131,32,138,181,176,186,133,32,32,32,137,146 

B9BA852929298992 
81070 5309 8481 OEFB 132,129 
01989 5396 9A9A DEFB 19,19 
91999 539D 29292929 DEFH ' 

29292929292929292929292953637265 

656E29H756079295571696C69717929 

69732M94E5351111C1C151121 
9U99 533E OA DEFB 10 

OHIO 533F 29282929 DEFH ' 

29292929292929292929295972657373 

29716865292231353622296B65797329 

73696D756C71616E656F75736C79 
81128 5371 OA OEFB 19 

91139 5372 28292020 DEFH ' 



Screen Dump utility is INSTALLED!' 



Press the "156" keys simultanei^—i' 



and follow the prompts. 



W»2*2t2t2t2t282*2*2(2»2(2t2*21 




•1898 5431 2B 




DEC 


M. 




2W16£642(666F60CnF772«744B63a 




•19M 5432 1881 




JR 


GOMT 




uruntsivitnas. 








•WW 










11 1H 539E M 




DEFB 


11 




(192*3434 Fl 




POP 


AF 




IllMSnr 2828282* 




DEW 


/ 


(crated Ml by Ron A. ZijK) 


'•193* 
•19115433 1BCC 


CONT 


DJNZ 


BTtlOP 




2*2*2t2t2l£UVUUUUUoa**'* 






656tf465A4Z83139aB342B(27JZ852aF 




•1951 










6E2W12E2B5A6UA416329 






81968 5437 7E 




LD 


*,(*> 




HIM 33CE *AW 




DEFB 


11.13 




1197(5431 FEB6 




CP 


WW 




11171 
11181 










I19M543A SM 




JR 


Z.WOFJt 












11991 543C JEM 




LO 


Hf (raW 


{Ounor dHTKUr 


•119» 53D* 


OFST 


ESU 


t 




•2HI543E 1M2 




JR 


WJTAL 




11211 33M 


dhpsqi 


pu 


• 




IZ1K5H8 3EB9 


MKKR 


LD 


Arlvnl 


{Flip plMh 


11211 










•21215142 77 


DSTN. 


LD 


(H),A 




nm saot mm 




OEFV. 


1 Rind by Enojtut (forward' pointer •> 


12831 SM3 8t3t 




LO 


B,3W 




11231 3302 11 




DEFB 


1 JZ5m bttettn iiwoctticM 


12*4*5441 UK 




Jt 


ICYUP 




11211 5X3 It 




HOT 


1 SCamt-dMt byte 


12*5* 










•US* 

11261 53M F3 










I2M5447 


DEXn 


EDO 


• 






push 


AF 




(2*7(5447 El 




MP 


M. 


tdt (wt CRT potitUn 


11271 53D5 3M*3B 




LD 


A,onm 


J-U234567* Ktybotrd Nrtrix 


1218(3441 n 




LB 


A.E 




11281 5308 E£7( 




XOR 


7W 


(Ttit-W 


»Z(9*544» B7 




OR 


A 


ITttt for no durotUrfl 


•1298 53DA 2812 




jr 


2,own 


Jlf Mai Zero, Fort* It 


(21N344A 2858 




Jt 


z,«nif 


Mb f ilMMC - EXIT H/0 N* 


113(1 33DC Fl 




POP 


AF 




1211* 34< 4F 




LO 


CA 




•1318 53)0 C» 




RET 






•212*3448 MM 




LB 


B,« 


|BC <— OaricUn to mow 


81328 










(213* S44F 1IE4M 


PT2 


LO 


DE.DOHFST 




8133* 33DE C3 


turn 


nn 


BC 




•214(5452 CS 




raw 


BC 




•1311 33DF 05 




MM 


DE 




(215(5453 05 




PUGH 


DE 


tttald onto DCS 


11331 53EI E5 




net 


HL 


iSwt Praya*. SUtoi 


•216(5451 m» 




LDSt 






•1361 










1217(5456 EB 




D 


OE,HL 




11371 53E1 21CWF 




LD 


H,3FCtH 


ILMt Um of cm 


(21M5457 3683 




LO 


(K.),3 


tPoiit TtMiMtar 


11381 53E1 11MI2 


m 


LD 


OE^STBUF-OFST 


}Ust Lint Buff tr 


(21915459 21*112 


PT3 


LD 


K.,LST8UFHfST 




•1371 530 I11«N 




LD 


Kb'WH 


(Length of CRT LiM 


I22H S45C UCOf 




LD 


DE,3FC*H 




•1K( 53EA E5 




pun 


M. 




I221(345f (11((( 




LO 


BC»tIH 


iStt w to rtiUrt battM liiw 


•Hit 53EB C5 




PUGN 


BC 




12221 5162 EDet 




LDOt 




IRtftorcit 


1112* 530: edb» 




LDOt 




Ifold on to it 


(223(5161 Dl 




POP 


OE 


IRKtartDCB 


11131 53K CI 




POP 


BC 




I22KS165 CI 




POP 


BC 


tRMtartM 


HHI 53EF El 




POP 


HL 




•225(5166 21(K1 


PT4 


LD 


M.1BUFFER-OFST 




11458 53F» EB 




EX 


OE.ML 


ISK up far pranrt lint 


•226(5169 CDZtH 




CALL 


4428H 


|Qp«n Nm or Exiitina Fill 


11461 33F1 EDM 




LDBt 






(2Z7I346C 2814 

12281 

1229* 546E 2184(2 




JR 


Z.NOERR 




11171 

I14M S3F3 816481 




LD 


BC.1M 




ERMR 


LD 


HL.EFMCS-CFST 




111?* 53F6 CD68M 




CMi. 


(MM 


;Otl« far KeAounct 


•23115471 UC13F 




LD 


0E>3FCW 




815M 

11511 S3F? 21E93F 










•231(3474 (14*»« 




LD 


BC18H 


IStt up Error Hmmoi 




U> 


H,TTPE»-1PPRHT*3FaH SCRt dw, inttft Inc. 


123213477 EDM 




LDOt 




Inmt it in 


11528 53FC *63* 




LD 


B,3M 


iCurfor Blii* Count 


•Z33( 










11531 53FE 8E16 




LD 


CFJWfS-TTfftm-l »C <- MM chtr. tntr* 


•23115479 CD5Bt3 


ERRLOF 


CALL 


SMTY 




• 1511 5188 1EII 

• 1551 




LD 


E,» 


|E <— chtricter tntry count 


•235* 547C FEW 




CP 


13 












•2361 547E 2BF? 




JR 


NZ.ERRLOP 


(If no ^KTETO kiop looking 


81568 51*2 E5 




PUGH 


HL 


IHold CRT pofition 


•237( VB» 1822 




JR 


NOFILE 




11571 

I1S68 5H3 CD5M3 


KEYLOT CALL 


MCY 


16ft l»y 


•238* 

1239*5182 21M3C 


NOERR 


LD 


H.SCREEM 


IStt up for dunp 


H39I M*A B7 




OR 


A 




(21H54B5 ll£4*l 


PT6 


LD 


DE,OCB-OFST 




11611 5M7 282C 




JR 


z,cwr 




82418 5488) IE1I 




LD 


C,1(N 


{CRT Linn to write 


•1611 5H? FEW 
816H 5148 281D 




CP 

Jt 


8 
Z.BAOCSP 


ILtft irrow 


•242* 

12431 548A (611 


LDU>1 


L LD 


B.48H 


{Lino Chtracttrt to write 


•1631 5H0 FEW 




CP 


13 


jemter \*t 


•2HI 










•1M« 5HF 2836 




JR 


Z,DEXn 




•215(54BC 7E 


UDLP2 LD 


A,<M.) 




•165* 5111 R 
11641 5112 7B 




PUSH 
LD 


af 

A,E 




•2468 S4BD 23 
12171 54BE CDlBtl 




DC 
CALL 


M. 
•I1BH 


jHrite Byte to Disk Filt 


•1671 5113 B9 




CP 


C 




•248* 










•16M 5111 281E 




JR 


i.anr-i 


{Pop AF brfort continuing 


•219J 5471 1(F? 




DJKZ 


LDLP2 




•169* 5116 Fl 




POP 


af 




(25il 










I17H 5117 FE2E 
•1711 511? 3B1A 




CP 

JR 


i 

cam 




•2518 5193 3EW 
12528 5495 CDUMI 




LO 
CALL 


A, 13 
881BH 


Write Cwriagi Attorn to Filt 


8172( 511B FOB 




CP 


'I'M 




1253* 










•1738 5110 3116 
•17H 511F FE61 




JR 
CP 


K,CCMT 




•Z54( 5498 W 
•255»5499 2*EF 




DEC 
JR 


C 
MZ.LBLP1 


IStt up for nwt lint 


•175* 5121 3812 




JR 


cproc 




82568 










•1761 5123 E6SF 




MO 


5fM 


ilbok bit 5 to UPPER CASE 


•2578 5498 AF 




XOR 


A 


SZiroAfX 


•177» 










(258*549C C01B88 




CALL 


II1BH 


JHrite Ztto to Filt 


•178» 5125 77 


proc 


LD 


(KJ.A 




tzsn 










•17V« 5126 23 




DC 


H 




82688 549F CD2844 




CALL 


4428H 


iClOM Duw Fite 


•IBM 5127 1C 




DC 


E 




82611 54A2 2KA 




JR 


MZrERROR 




11811 51Z8 188B 




JR 


com 




(2628 










11821 










(2638 54M 2184(2 


NOFTU LD 


Hl.LSTBuT-om 


1183* 512A 78 


BAOCSP LD 


A.E 




826K 5W UCOF 




LD 


DE.3FC8H 




•181* 512B 87 




OX 


A 




82658 W* (1K(( 




LD 


Kb iW 


IStt up to rtftort bottod lint 


•18H 512C 2817 




JR 


Z,CGNT 




82668 54M EDM 




LDDt 




iRtctort it 


•1864 512E 10 




DEC 


E 




82678 54AF El 




POP 


M. 




11871 










826M54B( Dl 




POP 


DE 




I1B8« 51Zf 362« 




LD 


(*.),' ' 




•269* 54B1 CI 




POP 


BC 





I27M 5*.? 
027U 

07'20 5«3 
0273J 

K710 5*1 
82751 5«H 
Km 53M 



I277J 53F1 
•Z780 54H 

•2791 5430 
12896 5451 
12811 5471 



12821 

0283t 5491 
12811 5211 



Fl 



C? 



FW 



RET 



iGct ok*, statu* 
{Return to task 



DO KFS ZIH 

OFFER OEFS 1HH 
2I2I2K0 LSTBUT OEFH ' 
2l2l2t2l2l2l2i2l2l212t2l2l2t2l2t 
212121212121212121212(21 
2I2I2I2I OEFM 

21212121212(21212121212121212121 
2l2l2l2t2l2t2l2i2i2l2l2l 
21212141 TWWT OEFM ' Due Filiate ( <EHIW> to «bort ) «>' 

iwmwican/uustattxx 

292I3D3D3E 

21212121 nrCDt OEFH ' 

2I2I2KI2I2I212I2I2I2I2I2I2I2I2I 

212121 

2I2I2IH ERRHES DEFH ' DISK ERRORS Prtii <ENTER> to' 

1»53«ZI135252«"523A2O205I724373 

732WC15*5115523E2l716F 

2l43tf4E DEFH ' ccntinut ... 

744?4£75452l2E2ttEZ«2E2l212l212l 

2l2t2l2ttl2l2l2l2l2f2l2l 



FJODC EOU 
EW 



t 

LDSTRT 



SYHBOL TABLE 



DKET I35B 

ENBUE3 H7B 

REPLCE 525D 

PT1 53E1 

UNDER 5M« 

PT1 5144 

LIHLP1 518A 

LSTRF 55D1 



SCSEEX 3C»I 

LOSTRT 52M 

ENTHSS 524A 

KEYLOP 51J3 

MSTAL 5112 

ERROR S14E 

LWLP2 518C 

TPPRHT 5611 



HBCM 4M9 
HN1 5215 
OFST 
PROC 

DExn 

ERRLOP 5179 
N0FHE SIM 
TYPED! 54X 



5X1 

5125 
5117 



HDOO 

HH2 

DHPSCM 5X1 

BACKSP 512A 

IT2 

MERR 

0C8 



Ull 
521F 



5HF 

vsa 



ERRHES 5651 



oojei mi 

END 5251 

oupn SXE 

OONT 

PT3 

PT4 

BUFFER 5101 

ENDING 5491 



5135 
5159 
5185 



ELECTRONIC MAIL REVISITED - This issue I'd likt to 
present information on two new electronic mail services I've 
heard About. One is a new service in Canada, and the other is a 
new service from an old company that wants to take on MCI Mail 
(MCI Mail has already been featured in Northern Bytes Volume 5, 
Number 2). 

I recently received a mailing from Western Union, describing 
their "EasyLink Instant Mail" service. My first thought was that 
perhaps they were going to try to compete with MCI Mail. After 
reading their material, however, I have come to the conclusion 
that MCI Mail needn't worry too much about the "competition". 

Of course, if you were to read only Western Union's mailing, 
you might come away with a completely different impression. Part 
of the mailing is in "Question and Answer" format, and one of the 
Q&A's is a direct attack on MCI Mail. Question • 13 reads as 
follows! 

"Question: What's the difference between EasyLink and MCI 

Mail? 

"Answer! There are several differences. EasyLink message 
rates are generally more economical. You pay on a usage basis. 
MCI Mail's minimum rate is $1.00 per correspondence. 

"EasyLink service offers a number of features not currently 
available with MCI Mail. If desired, you may request delivery 
notification for your outgoing mail. This will provide you with the 
address to which the message was sent and the actual time of 
delivery. Another example is EasyLink's Attention Line which 
permits you to direct your correspondence to a particular 
individual (e.g. ATTENTION! Mr. John Smith) or to highlight a 
particular portion of your correspondence. 

"EasyLink service provides broader worldwide communication 
ability. Users in many overseas locations cannot reach you via 
MCI Mail. Also, with MCI Mail you cannot communicate directly 
with the majority of domestic U.S. Telex terminals." 

(End of quoted material) 

Un Fortunately, many statements are made in the above 
paragraphs that might be considered half-truths at best. 
EasyLink's pricing structure seems to me to be rather difficult to 
interpret, but here's how I read it! Suppose I want to send a 
message from my personal computer to someone else's computer. 
I would have to pay 30 cents per minute at 300 baud (or 45 cents 
per minute at any other baud rate), BASED ON INPUT TIME, plus 



15 cents per connection to EasyLink via WATS line because I don't 
live in one of the "400 major cities" served by EasyLink. My 
recipient would also have to pay the 15 cents WATS charge (unless 
he lives in one of the select major cities), plus 30 cents per 
minute for "mailbox scan". Since most letters are going to take 
more than one minute to send and receive at 300 baud, as near as 1 
can tell it would cost 75 cents to send the message, and 75 cents 
for the recipient to read it (15 cents less in each case if a "local 
access" number is used, but more if a higher baud rate is used 
and/or it takes longer than two minutes to either send or read the 
message). As far as I can tell, Western Union would nearly 
always cost more than the ♦ 1.00 per message charged for an MCJ 
Mail Instant Letter. On top of all of that, once you've used 
EasyLink for three months and are out of the trial period, there's 
a »25 per month usage minimum! 

EasyLink lets you "request delivery notification for your 
outgoing mail." So what? You have the same capability with MCI 
Mail's RECEIPT option. However, Western Union charge* 29 cents 
for each Notification of Delivery, while MCI Mail's receipts are 

FREE' 

As far as the "Attention" line goes, this is really a "ho-hum" 
feature as far as I am concerned. If you need one, you can simply 
put one as the first line of the "text" portion of your letter, then 
skip a line or two and continue with the.salutation and body of 
your letter. I suppose that if MCi Mail we're to get many requests 
for such a feature, they could easily work it into their software - 
but, since they already give you four address, lines to work witht I 
don't really see much need for the "Attention" line feature. 

The Telex service comment is the one that really surprised 
me. The truth of the matter is that MCI Mail offers Telex 
delivery to EVERT Telex address in the world, at rates 
less than Easy Link. Furthermore, EVERY country, with the sole 
exception of Morocco, can generate messages through Telex 
addresses to MCI Mailboxes. And yes, you can send domestic 
Telex through MCI Mail, though if I really needed to communicate 
with a non-MCI Mail subscriber in a hurry, I would probably 
telephone, or use MCI Mail to send a Four-Hour or Overnight 
letter. 

It's interesting to see the kind of statements that Western 
Union is making about MCI Mail in their literature, especially 
since MCI Mail has only been around for less than a year. The 
fact that they mention MCI Mail at all indicates to me that they 
consider the folks at MCI as serious competitors (they do not 
mention any other electronic mail services in their literature). In 
any event, I can't see myself switching to EasyLink as long MCI 
Mail continues the fine service that they now provide. Because I 
live in a somewhat remote area, I particularly appreciate MCI 
Mail's free WATS line access and the fact that they do not charge 
me to read my mail, nor for the time I spend online, but only for 
the actual sending of mail. 

Turning to the Canadian scene, Canada now has an electronic 
mail service called Envoy 100. This service is offered by Telecom 
Canada (the Canadian equivalent of AT&T Long Lines in the days 
before the Bell System breakup). Envoy 100 can be accessed from 
almost anywhere, through regular phone lines, Telecom Canada's 
Datapac network, the TWX network, the U.S. Telenet and TYMNET 
networks, or through other foreign packet switched networks that 
connect with Datapac international. 

Envoy 100 offers your choice of English or French command, 
options. Messages can be delivered in two ways - to a "mailbox" 
(stored in the system until the recipient logs on and retrieves his 
messages) or autodelivery (Envoy 100 will dial up a terminal in 
Canada or the U.S. and deliver the message automatically)., In the 
future, Envoy 100 users will also be able to send messages to 
Telex stations around the world. In addition, a servlot| called 
EnvoyPost permits the sending of same-day or next-day hardcopy 
letters to addresses in the U.S. and Canada. 

Envoy 100's rate structure is not as good a deal jas MCI 
Mail's. There are two categories of service - corporate service, 
for businesses requiring more than one user accreditation, arid 
individual user service for personal use or for businesses that 
require only a single user accreditation. Corporate users pay *20 
per month which includes the organization administrator's! 
account, plus *3 for each additional user I.D. accredited to the 
system. Individual users pay only *5 per month (there is no 
monthly charge with MCI Mail). 

Usage charges are based upon kilocharacters (1000 
characters) which are sent to and from Envoy 100 by the message 
originator, as well as kilocharacters which are sent to recipients 
of the message. The sender pays to input the message and also 
pays for the message to be delivered. The usage charge is 30 



cents/kiloclwacter for the first 15,000 kc/month/ account, 25 
cents/'kilocharacter for the next 25,000 kc/month/account, and 22 
cents/kilocharacter for more than 40,000 kc/month/account. In 
addition, there is a 5 cents/message/address charge. Confusing? 
Well, here's an example, straight from Telecom Canada's 
literature, A 1000 character message would cost the originator 30 
cents to input into the system, 30 cents far each copy sent and 5 
cents per addressee. Thus, a 1000 character (about 150 words) 
message sent to one addressee anywhere on the Datapac network 
would cost 65 cents. If sent to two addresses it would cost J1.00 
(30 cents far input and 35 cents for each addressee). Users also 
□ av for all characters required to interact with Envoy 100 (for 
example, to access or re-read messages). 

Mote the underlined sentence above - I added the underlining 
because you might otherwise miss the point that the recipient has 
to pay to read the message! By contrast, MCI Mail charges the 
sender of an "instant" letter $1.00 for the first 7500 characters, 
with no charge to the recipient to read the message, no charge to 
"interact with the system", no monthly fixed rate (unless you 
subscribe to their "advanced" service), and so on. 

As for EnvoyPost, the rates for that service consist of 
Envoy 100 usage charges (the old 30 cents per kilocharacter, I 
assume), plus a flat rate of * 1.10 for next day "basic" delivery, or 
$2.16 for same day "special" delivery. Delivery to the U.S. is also 
available, the flat rate for that is $1,60. 

If you want to save money, you'd better make a habit of 
reading your electronic mail regularly on the Envoy 100 system, 
because you get nicked for one-half cent per kilocharacter per day 
for each message left over five days. You'd have to leave an 
awful lot of mail waiting for quite some time before you'd 
accumulate any substantial charge at that rate, but then MCI Mail 
users don't have to worry about such charges at all. 

You might wonder why I keep comparing Envoy 100 with MCI 
Mail when MCI Mail isn't available in Canada. Well, actually, MCI 
Mail IS available to Canadians by calling a U.S. access number 
(see list in Northern Bytes Volume 5, Number 4). However, I am 
told that MCI Mail has been trying to expand their service to 
Canada in a more direct way (possibly through use of an 800 
INWATS service number good throughout Canada), but has been 
met with some opposition to this plan. As one MCI Mail 
representative put it, "the problem is political, not technical." 

In the meantime, Canadians interested in receiving more 
information about Envoy 100 service can call toll-free (800) 
267-4747 for more information. Others may contact Telecom 
Canada at 410 Laurier Avenue West, Box 2410 Station D, Ottawa, 
Ontario KIP 6H5 - phone (613) 560-3000, TWX! 610-562-1911. 

VERFILE/CMD file verification program - This program was 
written by Laurie Shields of Wingerworth, Chesterfield, England. 
It is intended to work on all Disk Operating Systems, but it may 
do funny things under Model III TRSDOS if the Logical Record 
Length of the file to be verified is something other than 256. To 
use the program, type! 

VERFILE filespec 
Where "filespec" is the filename and extension (with optional 
drive #) of the file to be verified. If the filespec is not specified 
in the command line, VERFILE will prompt for it. VERFILE will 
then "read 1 ' the indicated file, and report any disk errors that 
might occur during the read (such as parity errors, missing 
records, etc.). You will then be prompted for another filespec to 
verify, and if you hit <ENT£R> only, you will exit the program. 

The VERFILE program can be run from a DO file to 
automatically verify more than one file. Such a DO file would look 
like this! 

VERFILE Center> 

FILEA<enter> 

FILEB<enter> 

FILEC<enter> 

<enter> 

In this way, VERFtLE Could be used to check all important files on 
a disk with a single command. 

If you want to abort execution of VERFILE on an error, 
cfiange line 85 to JR 4030H. The assembly language listing shown 
below was created by ZEN, a Z-80 Editor-Assembler-Debugger 
package written by Mr. Shields and sold by The Alternate Source. 
If another editor-assembler package is used, it may be necessary 
to omit the colons after labels in the source code, and to change 
DB, DW, and DS pseudo-opcodes to DEFB, DEFM, DEFW, and DEFS 
pseudo-ops as required by the context. 



Both the object code version of VERFILE/CMD and an 
enhanced version of the program, called VERF/CMD, will soon be 
available on a NEWDOS/80 utility disk sold by The Alternate 
Source. VERF/CMD will read the directory of a NEWDOS/80 disk, 
and then verify each and every file on the disk, so that an entire 
NEWDOS/80 format disk can be verified with a single command. 



1 
2 
3 
1 
5 
6 
7 
8 
9 
ID 

11 5200 

12 5203 
13 

11 
15 
14 
17 
18 
1? 
20 

21 5206 

22 5209 
23 

Z1 
25 

26 520C 

27 520F 

28 5211 

29 5211 

30 5217 

31 5218 

32 5219 
33 

34 
35 

36 521C 

37 521F 

38 5222 

39 5225 
10 

11 
12 

13 5227 
115Z2B 

15 522E 

16 5231 

17 5233 

18 5236 
19 

50 

51 

52 

53 5238 

515238 

55 523E 

56 

57 

58 

59 

60 5241 

61 5211 

62 5247 

63 5218 
61524B 

65 524E 

66 5251 

67 5253 
68 

69 5256 

70 5259 

71 525C 

72 525E 

73 5260 
71 5262 



JVERFILE/S 



video: 

unein: 

cursor: 

open: 

read: 

error: 

DOS! 

start: 



Z1DC5Z 
CDB152 



CDC552 

2ACE52 

23 

22CE52 

CD7152 

3A1S38 

CE57 

C22D10 

116151 

CD3614 

28E3 

FE1C 

28A1 

FEID 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
ORG 



212353 
CDB152 



211953 

0617 

CD4000 

DA2D40 

01 

05 

CA2D40 



011800 
211953 
116151 
EDBO 



EM3CE52 

216153 

114151 

0600 

CD21H 

202E 



213153 
CDB152 
CDBC52 



33H 

10H 

1020H 

H24H 

H36H 

1109H 

402DH 

5200H 
EXEC START 
LD ML, TITLE 

CALL UNE0UT ! Display title nessage 
J The progran starts by prompting for a filespec. 
! If <Enter> keyed by itself then exit to Dos 
! otherwise the file is opened and read sequentially. 
J Each record nunber is displayed prior to attempting 
j to read the sector and any Dos error, except EOF 
; is reported. 
! On error or EOF then 90 back for the next filespec. 

MAIN! LD HL.PROMPT 

CALL LINEOUT I Display filespec pronpt 

! Get filespec fron keyboard 

LD HL.KEYBUF i Set up buffer for input 



LD B,23 
CALL UNEIN 
JP C.DOS 
INC B 
DEC B 
JP Z.DOS 

hove filespec to DCB 

LD BC.21 
LD HL,KEYBUF 
LD DE,DCE 
LDIR 



naxinun = filespec/ext.passwordid 
Ron routine comon Models 14 3 
<Break> key 
test if B is zero 
i.e, just <£nter> keyed 
if so exit 



nax filespec + ODH 
prepare to nove 
to the DCB 
wove it ! 



; Set counter to zero and open file 

LD (SECTOR), BC ', conveniently BC = after LDIR 
LD HL.INBUFF ! Input buffer for file 
LD DE.DCB 

LD B,0 ! for logical record length = 256 
CALL OPEN 

JR NZ,DERR0R } report any errors 
! File opened successfully 

' Display reading Message and save cursor location 

LD HL .READING 
CALL ONEOUT 
CALL SAVECURS 

! This section is executed repetitively until error. 
! The cursor is restored 3nd record nunber displayed. 



readloop: call putcurs ; 
ld hl, (sector) 

INC HL i 
LD (SECTOR) ,HL 
CALL PRINTSECT J 
LD A,(3810H) 
BIT 2,A 
JP NZ,D0S 



cursor location restored 

! get sector count 

add one 

! save it and print it. , • 

Basic record # = Dos sector 



+ l 



LD DE,DCE: ; prepare for file read 

CALL READ ) read record 

JR Z,READL00P ; OK do it again 

CP 28 ; was the error = EOF 

JR Z.MAIN ; file finished 

CP 2V ! was sector after EOF 



114353 
F021D2S2 

mi 



73 5241 MM 

74 

77 

78 

7? 5244 F5 

81 5247 3EID 

81 524? C0330I 

82 52AC f 1 

83 5240 f 4CI 
81 524F CD09U 
83 3272 1892 
84 

87 



89 
91 

91 

92 5271 

93 5277 
W 527B 

95 

94 

97 

98 5270 

99S27E 
111 5281 
111 $283 
112 
113 
1H 
115 5284 

114 5287 

117 5289 

118 5288 

119 528C 
110 

HI 
112 

113 52BE 
1H 328F 

115 5291 

114 5293 

117 3293 

118 5297 

119 3298 

120 52W 

121 529B 

122 5290 

123 529F 
121 

125 
124 
127 
128 
12V 32A0 

130 52A1 

131 52A2 

132 52A3 

133 52A1 
131 

135 
134 
137 
138 

\7> 32A4 
111) 52A7 
111 52A8 
117 52AA 
113 52AB 
111 52AD 
115 
114 

117 52AE 
118 
11? 
150 
151 

132 32B1 
153 3262 
151 52B3 



JR Z.HAJJt ; file finished 
Dm error condition reporting 



debtor; 



PUSHftF 


i save error code 


LD A.0DH 


; print Carriage Return 


call VIDEO 




POP AF 


! recover error code 


OR KM 


; set bit* 4 I 7 for error Message 


CALL ERROR 


! Dos error reporter 


JR (WIN 


I go for next file 



; Print record nuMber in decinal 

; a registers hold meter for printing 

; Conversion done by successive sobtrection with 

; answer stored in SUFFER for printing by LJJCOUT 

PRSrfSECT! U» DEtBUFFER J DE is used as pointer 

LD n,DEC«ftLS } so is IY to table of dacimls 
LD C,l i C > leading zero suppression flag 



DS 
3E3I 
FD54M 
FD5EII 



B7 
ED52 
3813 
X 

18F8 



19 

FD23 

FD23 

FE30 

2018 

0C 

00 

2105 

3E20 

1801 



10 
01 
12 
13 
20O7 



OC 

oo 

2101 

If 

3E30 
12 



211353 



Subtraction loop 



km; 



PUSHDE 
LD A, 'I' 
LD D,(IY«) 
LD E,UY*0) 



save pointer 

counting up fro* Ascii I 
load DE registers with d«}Ml 
values pointed to by IV 



; Hou do subtractions until Carry condition 

KM*. OR A ! clear Carry flag 

SBC M..0E ; subtract deciMl value frtn HL 

JR C.HM ! gone too far >. 

DC A ; deep count of subtractions 

JR H>2 ! do it again 

; correct for 1 too wny I prepare for next position 



»3: 



tw: 



ADO 
DC 
DC 
CP 

JR 

INC 

DEC 

JR 

LD 

JR 

LD 



H,DE 

n 

IY 

'I' 
NZ.HD1 

C 

c 

NZ.HJM 
ft,' ' 
HD5 

C,A 



add it back 

Hove to next value in DECDjAL 

note each value is 2 bytes' 

is this answer a "I" 

if not no trouble 

if yes then check if leadihn zero 

by testing C = I ' 

not leading zero so junp 

replace "0" by " " 

skip altering C to non-zerp 

cancel zero suppression flea 



; Test if current value in E is 1, i.e. decimal units 
! as if so then conversion complete, but do not react 
; iiwediately as value has to be put in the buffer 

«S*. DEC E ; if E-l then set Zero flag 

POP D€ ; recover pointer tn buffer 

LD (0E),A ; store decinal Ascii chara^fr 

DC 0£ ! ■"■'e pointer to next position 

JR NZ.HDl ; go back for nore subtractions 

; Nearly finished but if leading zero suppression 
i still on then answer all blank, so check, and if so 
; wove pointer back to end of buffer and put in a "0" 



INC 

DEC 

JR 

DEC 

LD 

L0 



C 

C 

NZ,HD4 

DE 

A,"0" 

ID£),A 



; leading zero suppr. ? 

J no so skip next bit 

; backstep pointer 

J put Ascii 

! into end of buffer. 



! All finished so prepare to print buffer 
HD4! LD HL.EUTER 

! Drop through to print line of Ascii characters 
; terttinated with binary 0. 



l$S5ft1C8 




RET Z { if so then finished 


154 5B5 05 




PUSH DE J save DE as the Ron alters value 


157 S&4 CD33M 




CALL VIDEO ; call Ron output routine 


158 52B9 Dl 




POP DE i restore DE 


159 SIM 1BF5 




JR LDEOUT J go back for another character 


141 






141 ; 


Routines used to save current cursor location 


142 ; 


t restore it before printing record nunber 


143 






141 SBC E5 SAVECURS 


PUSHHL ; saveM. 


143 SEED 2A2M0 




LD HL, (CURSOR) i get etfrsor position 


144 52C0 Z2DI52 , 




LD (CURSAVE).H. ! save it 


147 52C3E1 




POP HL ! restore HL 


148 52C1C9 




RET ! done 


149 






171 S2C3 E3 uncus; 


PUSH HL 1 s*w Win in reverse 


171 52C4 2AM52 




LD HL, (CURSAVE) 


172 52C9 222MI 




LD (CURSOR) ,HL 


173 S2CC El 




POP a 


I7152CDCT 




RET 


175 






174 S2CE llll SECTOR! 


DM f Sector count 


177 SZN Nil CURSAVE! 


OH I J Cursor save 


178 






179 


Table of decinal values 


181 S2D2 1127 DECDWLS 


: dn inn 


1B152WE8I3 




DM llll 


182 5204 4111 




DM 111 


183 5208 Mil 




DN 10 


1M 520* llll 




DM 1 


IBS 






184 


Messages, 28 = Hone cursor 


187 




31 = Clear to end of screen 


188 




13 = CR/LF 


109 




11 * Cursor on 


191 S20C 1C1F2I2I TITLE! 


DB 28,31," VE RFILEM3 


19l 52EI 21212054 






191 32E1 21132032 






191 32E8 21142019 






191 S2EC 2HC2H5 






191 32FI ID 






191 32F1 2I14494C 




DB " File verifying utility", 13 


191 32F5 45217445 






191 32F9 72494479 






191 52FD 494E4720 






191 5311 7371494C 






191 J3I5 49717910 






192 1319 28432921 




DB "(c) 1983 Laurie Shields", 13,0 


192 53ID 31393833 






192 5311 2I2MC41 






192 5315 75724945 






192 3319 2I534B49 






192 331D 454C4173 






192 5321 IDIt 






193 5323 K0D1449 PROMPT! 


DB H,13,"Filespec ! ",0 


193 5327 4C457370 






193 532B 4543203ft 






193 532F 2111 






191 3331 52434141 READING 


DB "Reading Record ! ",0 


191 3333 494E4720 






191 3339 5245434F 






191 533D 7241203A 






191 5311 2111 






195 






194 


! Buffer for deeitwl output ending with 


197 5313 20202120 BUFFER', 


OB " ",0 


197 5317 2100 






198 


! other buffers 


199 


ketbuf; 


DS 21 ! keyboard input 


200 


inbuff: 


DS 254 ! Dos input 


201 


DCB! 


DS 50 ! Model 3 TRSDOS needs 50 bytes 


202 




END 


Exec Adof 5200 







lineout: 



LD 


A,(HL) 


INC 


HL 


OR 


A 



; get character pointed to by HL 
I Ixwp the pointer 
J is it a zero 



WILL YOUR DISKETTES SURVIVE MAI LING? Protect them 
with The Alternate Mailer. 6"x8" size protects a 
5-1/4" disk or 5"x7" photo. 10/$4. 95," 100/$2«. 95 
POSTPAID in U.S.A. Canada $5 per 100 additional, 
U.S. funds. Mastercard, VISA send card # , expiry 
date. The Alternate Source, 70« N. Pennsylvania 
Ave., Lansing, MI »8906 (MCI Mail ID: 109-7007). 
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BASICOM? 

by Dr. Dimitri P. Bertsekas 

225 School Street 

Belmont, Massachusetts 02178 

This program is a more powerful version of the BASIC 
compiler for Models I and III that I presented in the October* 
1*32 issufc of 80 Micro. Major improvements include four times 
faster compilation through the use of machine language routines, 
and essentially full compatibility of the compiler and the BASIC 
interpreter. Other improvements include expansion of the list of 
commands supported by the compiler, support of rectangular two 
dimensional array computations, and the option to call machine 
language routines from within the compiled code through the USR 
command. However the program now requires at least 32K of 
memory and Disk BASIC, 

The compiler can translate into pure machine code an 
ordinary BASIC program containing virtually any type of single 
precision computations, a fair amount of integer computations and 
graphics, plus a limited amount of string handling. The machine 
code will run much faster than its BASIC equivalent (usually 
between 3 and 20 times faster depending on the nature of the 
program). Thus you can speed up your BASIC programs a great 
deal without rewriting them in assembly language. 

The machine code generated by the compiler is, I believe, 
very efficient. It is generally comparable in speed to the one 
generated by Microsoft's Fortran compile' available from Radio 
Shack. However matrix computations are compiled more 
efficiently by this compiler, For example- a matrix calculation 
program (published in my 80 Micro article) when compiled by this 
compiler runs roughly 11 times faster than in interpreted BASIC 
but runs only 7 times faster when compiled in Fortran. This is 
due to ?. special scheme used for storing two dimensional array 
addresses. Also the size of the compiled code produced is quite 
modest. This is due to the extensive u>e of ROM routines and 
absence of a separate subroutine library. For example the matrix 
program mentioned above compiled in 39' bytes but its Fortran 
pquivalent is more than 10000 bytes long. 

One of the most powerful features of this compiler is its 
capability to interface harmoniously with the BASIC interpreter 
thruogh unlimited exchange of variables. It is possible to compile 
into machine code only a portion of a BASIC program (presumably 
the most computation intensive). The remaining uncompiled 
portion can be merged with the machine code into a single BASIC 
program and run as usual. Values of any variable computed by the 
BASIC code can be used by the machine code and vice versa, In 
this way you get the best of all possible worlds! the convenience 
and broad command repertoire of the BASIC interpreter together 
with the speed of pure machine language code, 

USING THE COMPILER 

Load BASICOMP and if you have 32K of memory change the 
statement MR=0 in lines 1000 and 6650 to MR=1. As an 
illustration we will compile the program! 

10 CLSIFOR I"/.= 15360 TO 16383JPOKE I%,191!NEXT 

20 A*-"PRESS BREAK TO EXIT"!PRINT A»! 

30 A%=FEEKU4400)!IF A%04GOT030!' test for break key 

500 END 

Enter these lines and RUN. Line 10 will execute in interpreted 
BASIC as usual and will first clear and then white the screen. 
Execution will stop when you press BREAK and the END 
statement in line 500 is encountered. 

Now type RUN 1000 and press <C>. After a short while the 
compiler will start translating line 10 into machine code and poke 
the code in memory starting at location -2000 (or -18384 if you 
have 32K of memory). It will then translate lines 20, 30, and the 
END statement in line 500 and stop compiling, The start and end 
of the compiled code will be displayed on your screen. You then 
have the option of executing the code directly by pressing ENTER, 
If you do so the screen will clear and turn white almost instantly, 
What happened is that statement 10 executed in machine code 63 
times faster than in the usual interpreted BASIC mode, Press 
BREAK, type X=USR(0) and press ENTER. The compiled code will 
execute again exactly as the first time. You can now save the 
compiled program on disk using the Dump command and the start 
ind end addresses displayed earlier, 

The preceding example illustrates some of the basic rules 
for using the compiler. These are! 
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a) The BASIC program to be compiled should be entered or 
merged together with the compiler in lines ranging from to 500,, 
The command to compile it is RUN 1000. The compiler will 
successively translate into machine code all BA5IC lines with 

numbers from to 500 and store.the machine code somewhere near 
the top of your memory. 

b) An END statement is required at each point where you 
wish the compiled code to stop execution and return you to the 
BASIC interpreter. You can run the compiled code as many times 
as you wish, once it is stored in memory at the place where it was 
originally compiled, by executing the BASIC command X=USR<0) 
(the USR address is the start of the compiled code and should be 
first defined by a DEFUSR statement - for example if -2000 is 
the start of the compiled code you must first execute 
DEFUSR"-2000, see lines 1300 and 1340). 

c) The program should contain only statements from Table 2, 
(See the end of the documentation. Table 1 lists the 
abbreviations used in the descriptions of Table 2). If your 
program includes some statement that is either not contained in 
Table 2 or is incorrectly coded the compiler will not recognize it 
and will warn you with an error message. 

d> Multiple statements, remarks and blanks are allowed in 
each program line but blanks should not appear within a variable 
name and on either side of an = sign, 

e) Only integer, sipgle precision, and string variables are 
. allowed in the program to be compiled, Furthermore their names 
are restricted as follows, Integer names allowed are A% to Z%, 
String names allowed are A* to ZS. Single precision simple 
variable names allowed are A-Z, AQ-Z0, ..., A9-Z9. Single 
precision one and two dimensional array names allowed are A-Z. 
No integer and string arrays are accepted by this compiler, Some 
additional restrictions on the use of variable names dictated by 
memory management considerations will be explained shortly. 

There are a.few more rules that you must observe before you 
can use the compiler to its full potential. These have to do with 
effective memory management, and interfacing harmoniously 
compiled code with ordinary BASIC code. We will take these up in 
sequence. 

VARIABLE USE AND MEMORY MANAGEMENT 

When the machine code generated by the compiler runs it 
uses variables similarly as usual BASIC programs and therefore it 
must store these variables somewhere in memory. In our case it 
stores the compiled code near the top of memory and stores 
variables right below the compiled code. Referring to lines 6690 
and 6700, integers are stored starting at location VT, single 
precision simple variables are stored right after integers starting 
at location VF, then one dimensional arrays starting at VA, two 
dimensional arrays starting at VD, and finally string variables 
starting at VN. 

Most existing compilers will allocate storage space only for 
the actual compiled code and only for those variables that you 
actually use in your program. This compiler differs in that it 
allocates storage space for compiled code and for some variables 
whether you use them or not. To avoid a serious potential memory 
waste it requires you to provide information as to how much space 
for compiled code and how many variables you need for your 
program. This is done by modifying the storage parameters CC 
and SS in line 6650 and IS,DO,DT,DC,SL,NO,NT,NS in line 6660. 

More specifically CC is the number of bytes allocated for 

'•storage of compiled code, Set this to a close overestimate of the 

site of the compiled program, If you make a mistake and allocate 

too little space you will soon find out when the compiler tries to 

store machine code beyond the limits of your memory, If you 

allocate too much space your program will be compiled correctly, 

you will see its actual size, and you will have the chance to adjust 

the parameter CC and recompile the program should you wish to 

economize in memory space, The parameter SS sets the start of 

storage of variables and should always be greater or equal to CC. 

Ordinarily it should equal CC unless you wish to leave some space 

between compiled code and variable storage in which to put 

''something else -''for example a machine language routine or a 

'second compiled program that shares the same variables with the 

first. 

' - Returning to the use of variables the compiler will always 

"allocate space for the integer variables A%-Z% and the single 

precision simple' variables A-Z whether you use them or not (a 

total of 156 bytes). If you set all the parameters in line 6660 to 

zero you will not be allowed to use any additional variables and 



the total amount of storage used other than for the code itself 
will be the minimum possible 156 for variables* and another 26 
bytes for internal use of the compiled program - a total of 182 
bytes. 

You can tell the compiler that you need to us* more 
variables than the minimum allowed by setting some of the 
parameters in line 6660 to nonxero values. The parameter IS 
specifies the number of single precision variables per letter In 
addition to the letter itself that you can use. If you set for 
example IS to one then only the variables A-Z, AO-20, are allowed, 
while if you set IS to ten all the variables A-Z, AO-ZO, ...» A9-I? 
are allowed. 

The parameters NO and DO specify the number and 
dimension of one dimensional arrays that you can use. For 
example if you set NO*26 and DO=10 all the arrays A(.) through 
Z(.) can be used and their indexes must take values between and 
9, If NO=2 and DO»501 only the arrays A(.) and B(.) can be used 
and their indexes must take values between and 500. 

The parameters NT, DT, and DC specify the number of two 
dimensional arrays that can be used, and their row and column 
dimension. For example if NT«3, DT=15, and DC*10 only the 
matrices AU.l, B(.,.>, and C(.„) can be used and their first and 
second indexes must take values from to 14 t and to * 
respectively. 

In both one and two dimensional array* the indexes should 
either be an integer within the dimension range of the array <thi» 
is checked by the compiler), or one of the integer variables 

A%-2%. 

For example if NS«5 and SL«40 then only the string 
variables A*-Es can be used and each must have length no greater 
than 40 characters including blanks. 

Simple single precision variables and elements of arrays 
take up 4 bytes of storage each so you can easily go beyond the 
limits of your memory if you don't control carefully their number. 
The compiler displays the storage parameters, SO you have the 
chance to change them before starting to compile. 

Finally when compiling programs you must protect the 
memory area where the compiled code and the assembly language 
routines used by the compiler are stored (see the DATA 
statements in lines 7360-7620). The rule is that the number of 
protected bytes should be at least 750 plus the allocated Size for 
compiled code (the value of CC in line 6650). The number of 
protected bytes is set by adjusting the parameter PC in line 1000. 
You also have the chance to change this number on line when 
running the compiler. It is also possible to operate the compiler 
without memory protection (POO in line 1000) as long as the the 
compiled code does not extend to the top 300 bytes or so of 
memory. 

When executing the compiled code in conjunction with a 
BASIC program (see the next section), you must set memory sit* 
which is sufficient to protect both the compiled code and the arei 
wh^e it stores its variables, The compiler displays the required 
memory size at the end of compilation. Note that it is possible to 
set memory size from within a BASIC program. Line 6620 Show* 
how this is done. The desired memory size is poked into locations 
16561 and 16562 and this is followed by a CLEAR statement (any 
number of string bytes CLE A Red will do). 

If the preceding discussion seems confusing at first u*e the 
original parameters of BASICOMP for variable and code Storage. 
This allows you 2000 bytes of compiled code, the integer variables 
A%-Z%, the simple single precision variables A-Z, the one 
dimensional arrays A(.)-C<.) with 20 elements each, and the string 
variables A*-D* with maximum length 30 characters. The total 
size of a compiled program including variables with this parameter 
setting is 2551 bytes. 

COMBINING COMPILED PROGRAMS WITH BASIC PROGRAMS 

Because many normal functions of the BASIC interpreter 
cannot be compiled (disk I/O or PRINT USING for example), it is 
essential to be able to interface the compiled code harmoniously 
with ordinary BASIC code. As discussed earlier you Can execute 
the compiled code from BASIC as many times a* you want via tb» 
USR command. Similarly, by introducing END statements at the 
points where you wish the compiled code to return to BASIC, you 
can carry out the reverse process. However this switching back 
and forth from BASIC to compiled code would bt of limited u*e if 
you didn't have the means of passing variable values in either 



direction. For this purpose the two special statements X=0+Y and 
X = 1*Y have been provided. Here X is an integer or single 
precision variable of the compiled code and Y is an integer or 
single precision variable of the BASIC code. Note that X and Y 
must be both variables of the same type (both integer or both 
single precision). 

As an illustration consider the statement AV*0+AB%. When 
compiled and executed it finds the location where the BASIC 
interpreter stores the variable AB"/. and transfers the current 
value of AB\ into the location where the compiled code stores the 
variable A%. The statement AV=1«AB% performs the reverse 
process. It transfers the current value of the compiled code 
variable kX into the BASIC variable AB"/. (from where it can be 
picked up for disk I/O or further calculation for example). If the 
BABIC variable AB% has not yet been established the compiled 
code creates it automatically. As an example consider the 
following two lines! 

10 FOR I%=0 TO 10!I%=l*I , 4:Aa%)=0+VECTOR(I , /.):HEXT 

20 FOR i%=o to io!iv.=i*ii%:for J"/.=o to k>:j%=i*ji\:a(I%,j\ 

)tl#MATRIX(Il%,Jl%)!NEXT;NEXT 

When compiled and executed, line 10 transfers the elements 0-10 
of the BASIC one dimensional array VECTOR into the 
corresponding elements of the compiled code array A. Line 20 
transfers the specified elements of the compiled code array A into 
the corresponding elements of the BASIC array MATRIX. If 
MATRIX or the integer variables 11% and Jl% have not yet been 
defined they will be created. 

If the names of X and Y are identical, the statements 
X=o+Y and X = 1*Y when executed in BASIC while you are 
debugging will not interfere with the program's operation. 

Let's discuss now the process of writing a combined BASIC 
and compiled code program. First, write your program in BASIC, 
test it and debug it as usual. During this stage try to use 
statements and variables that the compiler will accept, and 
structure the program so it requires few modifications later. 
Then decide which part of your program you are going to compile, 
Isolate that part and introduce interfaces for exchanging 
variables with the remaining parts using the statements X»0+Y 
and X=1*Y described earlier. Duplicate any subroutines used by 
both parts since the compiled code cannot call BASIC subroutines. 

Renumber the part to be compiled so its line numbers are in 
the range 0-500 while the remaining part has numbers 10000 or 
higher. Test the program again by introducing GOTO statements 
to make sure it works after renumbering, Introduce a USR 
command at each point where you want the BASIC rrogram to 
switch to the compiled code, and fj- END statement at each point 
where you wi;!- the compiled code to switch to BASIC. At this 
point you should have a program such as the one in the Sample 
Listing (see the end of the documentation). This is a program that 
randomly generates N"', numbers (lines 10020-10030), and calls the 
compiled code (line 10050) to compute their average. The compiled 
code first obtains from BASIC the value of N\ (line 10), then 
obtains successively from BASIC all the numbers and gradually 
builds up their average A (lines 20-70), The value of A is passed 
to BASIC (line 80) and the compiled code returns to BASIC (line 
500). BASIC now prints the average (line 70) and goes back to line 
10020 to start again, Line 10010 sets memory size to protect the 
compiled code, and sets up the USR call. 

Once you have written a combined program such as the one 
in the Sample Listing you should save it in ASCII on disk and load 
BASICOMP. Then merge the combined program with the compiler, 
adjust the storage parameters in lines 6650 and 6660 if necessary 
and RUN 1000, After compilation is completed you should dump 
the compiled code on disk and BREAK (or BREAK first and then 
Dump the code on disk if you don't use NEWDOS80). Then set 
memory size and set up the USR call (compare with line 10010), 
delete all lines up to 10000 if you wish, and your combined 
program can be executed via RUN 10000. 

Once you have the combined program in its final form you 
may wish to translate the compiled code into DATA statements 
and merge it with the BASIC code in a single program. 80 Micro 
has published an excellent program for this purpose (Datagen, 
August 1981). Otherwise you must load the compiled code in 
memory via the DOS LOAD command before you can run the 
combined program. 
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TROUBLESHOOTING 

The compiler checks for most syntax errors during 
compilation. However some errors can remain undetected until 
you find out the hard way during execution timet 

If the compiled program runs but gives different results 
than its equivalent BASIC program the most likely problem is that 
some compiled code variable appears in the right hand side of an 
assignment statement without being initialised first (remember 
the BASIC interpreter automatically initializes all {Variables to 
zero but the compiler doesn't). Also the compiler doe* not cheek 
whether the result of an integer LET expression lies within the 
legal range (-32767 to 32767), another source of errors or program 
crashes depending on how the results are used later. 

If the compiled program crashes check the For... React loops; 
make euro they are set up properly (each For It matched By a 
Next) and that there is no jump out of the range df a For. ..Next 
loop. 

Finally there are three more compiler parameters that you 
will rarely if ever need to adjust. These are the dimensions of 
the arrays Li, L2, and A in line 6630. The dimension of LI and L2 
is the maximum number of lines that can be compiled, and the 
dimension of A is the maximum numbers of jumps (GOTO* and 
COSUBs) that can be compiled. Listing 1 allows 100 program lines 
and 50 jump statements. If y.ou try to compile a program that is 
too long or has too many jumps, compilation will Stop with a 
"subscript out of range" error. In that case you must increase 
appropriately the dimensions of LI and L2 or A. 

MODIFICATIONS 

The compiler takes a lot of memory space which you. may 
need if you want to compile a long program. One way to save 
memory is to delete all remarks. In fact this is essential if you 
have less than 48K of memory. If you don't need to see the 
current parameter settings before compiling delete lines 
6710-6720. If you don't need all of the Compiler's capabilities you 
can delete the, Corresponding lines and save space. For example if 
you don't need OUT delete line 1165 and lines $300-5550. If you 
don't need SET, RESET, and POINT delete lines 2030, 6000-6110. 
If you don't need FIX, CINT, SGtf and RND delete lint* 2021-2024 
etc. Another memory saving device is to write the DATA 
statements ;n lines 7380-7620 in a disk file and read instead the 
DATA in line 7200 from that file. 

The option to Dump the compiled code to ditk directly from 
the compiler (see line 1335) works for the NEWDQS operating 
system for both Models I and HI. If you have TRSDOS you will 
have to forego this optidrt ana us* trie Dump tbmmsnd at described 

in your TRSDOS manual; You may, if you wish* then delete line 
1335 and the portion "^NDA'/.OfcS" in line 1330, and modify the 
Print statements in line 1320. If you have a different operating 
system that allows you to execute the Dump commend directly 
from BASIC you should modify appropriately line 1335. 

As an aid in understanding the program note that the 
functions of the four machine language routines used by the 
compiler are as follows! 

UBRO! Pokes P into memory location W and incrementi M. 

USRl : Sets B to the next nonspace byte of the BASIC program. 
USR2J Corrects the addresses of the compiled code jumps* 
USR3: Sets El' and Dl to the least and most significant bytes of 
the variable C respectively. 



TABLE li Definitions and ahhravlatlans 

Integer Variable (IV)! One of the variables A%-Z\ 

Single Precision Variable (SPV)l A simple variable A-t, A6-Z0, 
A9-Z9 or a one or two-dimensional array element 

String Variable (SV)S One of the variables Af-ZS 

Constant (C>! Any integer or decimal number 

Possible integer (Pl» Any Integer in the rang* -W767 to 3276? 

One Byte Integer (OBI)! Any integer in the range 0-255 

string (Sk Any sequence of blanks or printable characters 

enclosed in quotation marks (the right quotation mark is optional 

if the string lies at the end of the line) 



n 



Integer Expression (IE): A sequence of the form XlsX2sX3... 
where XI, X2> X3,... is a positive integer less than or equal to 
32767 or an integer variable, and s is plus or minus. The sequence 
may begin with a minus sign but not with a plus sign or a zero 
followed by a plus sign. Parentheses are not allowed (and not 

needed). The compiler evaluates integer expressions in the same 
way as the interpreter but if the result is outside the range 
-32767 to 32767 the compiled code will not indicate an error 

Single Precisian Expression (SPE)! An arbitrarily parenthesized 
legal BASIC expression involving constants, single precision or 
integer variables, the operators +i -» *, /, "\ and the functions 
RHD(0), SQB, ABS, LOG, EXP, COS, SIN, TAN, ATN. Here are 
some examples of SPE 'si 

a) •(l+80R(l,?»A% ♦ WH(A«*.,J%)#2.3)» 

b) W3a<fXF<lQ*C)/2,3M>«S% 

c) (-1.2+3.4) 

d) (1%) 



TABLE 21 Program statements that can be compiled 
(Expressions in brackets are optional) 

LSTi There v>9 several types of LET (assignment) statements. In 
each case the LET keyword is optional 
1>X#Y (Integer LET) 
XtlV 

Y!JE 

2>x«? (Single Precision LET) 
XiSPV 
" YiSPE 

3)X«Y (String LET) 

XISV 

YtS or CHR»(Zl>C + CHR»a2)C+CHR*(Z3)C+ ... where Zi, Z2, ... 

are IVs or OBIs 

PRINTI There «r« several types of PRINT statements: 
1) PRINT dine feed and carriage return) 
2)PJHNTXlCiX2C!X3tS... 
XliX2,X3,.,.I SPE* or 8Vs or Ss 
3) PRINT 9 X,YlflY2UY3[|... 
X!PI in the range 0-1023 or IV 
Y1.¥2,Y3,...S SPE* or IVs or Ss 

(•PRINTI (Same format as PRINT statements 1) and 2) above. 

!f , .t.THXM.>iBL8E! The format of this statement is! 
IF X raj Y THEN dins- ttXiJCELSE...] 
where 

rej is any of *,<,>,<*,*<,>=,=>,<>,>< 
X i*4n |v or a f PJ5 that does not begin with an IV 
Y is a SPEi but if X is an IV then Y must be an IV or a PI 
THEN can be replaced by GOTO or by THEN GOTO 
ELSE can bt followed by any other legal statements including 
•Mother tPmTHlM statement 

Note! If .X if an integer variable and Y is a SPE which is not an 
IV 9r 4 f% the compiler Will give an error, If you compare an 
IV with a SPE other than the above type, code the statement 
»S in (I%)r»lSPI or SFErelI'4. Note that an IF. ..THEN 
Statement involving integers will execute much faster than one 
involving 8FEs. 

GOTO (line #>( 

0Q8UB (line t M 

INPUT x: 

X!tV or 8PV. The constant keyed in should have no more than 
lis digits. If X i* an iv» it is not necessary that the constant 
keyed in is an integer. The code automatically truncates it to 
in integer. If the absolute value of the constant is larger 
than tt7#7 and X is an IV a fatal error will occur. 

WMCE X,Y! 
XlTVorPt 
YIIV or OBI 

$ET(X,Y){RE$ET(X,Y>: 

X»THV or OBI in the legal range of the set and RESET 
commands. 
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SAMPLE LISTING 



REM (or ')! 

The compiler skips over statements that begin with REM or . 

end: 

It is mandatory to have an END statement at each point where 
you wish the USR to return to BASIC. This statement is 
translated as a Return to the point where the USR was called. 

FOR X=Y1 TO Y2! 
X!IV 

Yl,Y2:iVorPI 

Note! Yl must have a value less than or equal to that of Y2 
and the STEP option is not supported. If Yl has a larger value 
than Y2, the program will get caught in an infinite loop t give 
incorrect results, or hang up. The compiler does not check for 
this error. 

next m; 
x: iv 

Notes! An unlimited number of FOR...NEXT loops is allowed 
but the loops must be matched (each FOR is matched by a 
NEXT). It is not legal to jump to a line outside the range of a 
FOR. ..NEXT loop from a line inside the loop. Code that 
violates this rule will be compiled with no indication of error 
but will very likely crash upon execution. 

X=FN(Y>! 
X!IV 

y: spe 

FN! Any of INT, SGN, FIX, CINT 

X=RND(Y>! 
XilV 
Y! Integer between 1 and 32767 

X=FEEK(Y)i 
X!IV 
Y! PI or IV 

X=P0INT(Z1,Z2>! 

x:iv 

Zl,Z2!IVorOBI 

x=usr<y>: 
x: iv 

Y! IV or PI 

Notes'. This statement calls a machine language routine with 
entry point Y. The integer variable X is dummy and its value 
is not affected by execution of this statement. This function 
works differently in BASIC (see the Level II manual). 

X=VARPTR<Y>! 

x:iv 

Y! Name of a BASIC integer, single precision, double precision, 
or string variable. 

X=ASC(YK 

x:iv 
y:s 

Note! When this function is executed X equals the ASCII value 
□f the first character of the string Y. If Y=»"" then X will 
equal zero. By contrast in ordinary BASIC ASCC") gives an 
error. 

X=INKEY»: 
X=!S 

Notes! The string X will equal the character of the key 
pressed while the statement was executed. If no key was 
pressed then X="\ By contrast BASIC returns the character 
of the key latest pressed (see the Level II manual). This 
function together with the ASC function is useful. in a program 
line such as! 

10 A*=INKEY$!A%-ASC(A*)!IF A%=0 THEN 10 
The statement above will loop until a key is pressed. At that 
time A% will equal the ASCII value of the key. 

OUT X,Y! 

X! IV or OBI 
Y! IV or OBI 



5 ' LINES 10-500 ARE A SAMPLE PROGRAM READY TO BE COMP 

ILED AND RUN IN CONJUCTION WITH THE BASIC PROGRAM ST 

ARTING AT LINE 10000 

10 N%=0+NV GET VALUE OF N% FROM BASIC 

20 S=0SP%=N%-1 

30 FOR I%«0 TO P% 

40 I%=l#I\JN*0+ARRAY<n.) 

50 S-S+N 

60 NEXT 

70 A=S/N% ' COMPUTE THE AVERAGE 

SO A=1*AV!' PASS AVERAGE TO BASIC 

500 END!' RETURN TO BASIC 

10000 ' SAMPLE COMBINED PROGRAM THAT COMPUTES THE AV 

ERAGE OF A SET OF RANDOMLY GENERATED NUMBERS 

10010 MR»0:HS=-2551-MR»16384+65535!POKE 16562,HS/25MPOK 

E 16561, HS-INT(HS/256)*256!CLEAR 100!MR"OiDEFUSR— 2000-M 

R»16384!' SET MR=1 FOR A 32K SYSTEM! THIS LINE SETS MEMO 

RY SIZE AND SETS UP THE USR CALL 

10020 DIM ARRAY09) 

10030 INPUT "HOW MANY NUMBERS (1 TO 20HNVFOR 1*0 TO N 

V-1!ARRAY(I)=RND<0)!NEXT!S»0!FOR 1-0 TO N\-i;S«S+ARRAY<I) 

JNEXT1PRINT "AVERAGE ="',S/N% 

10040 PRINT "PRESS <ENTER> TO RUN THE COMPILED CODE'iG 

OSUB 11000 

10050 X=USR(0) 

10060 PRINT "AVERAGE COMPUTED BY THE COMPILED CODE -" 

!AV 

10070 PRINT STRINGi(64,176):GOTO 10030 

1 1000 A*=INKEY* 

11010 A$=INKEY*!IF At*"" GOTO 11010 ELSE RETURN 

END OF SAMPLE LISTING 



MAIN PROGRAM 

500 END 

501 '**»#»***»«# BASIC COMPILER VERSION 2 ; 
* 

502 '** BY D. P. BERTSEKAS, BELMONT, MASS. 

510 '***#♦##**#**#» AUXILIARY ROUTINES »«•••***##*«•**»*• 
* 

515 ifb<65orb>90then517elsereturn 

516 ife<>37then517elseq=q+1!return 

517 printiprint'error line #"l1(l-1)!end 

518 print:printtab<20>f*lkdireturn 

5 1 9 fori= 1 t064 jprintchr$(1 40)}!next!return 

520 ifa!>32767thena%=a!-65536elsea%*a! 

521 c*»fnh4$(a%)!return 

522 A*=INKEY* 

523 A*=INKEY»SIFA**""THEN523ELSEA%=ASC<A*>SRETURN 

529 ' •#****#* SINGLE PRECISION ASSIGNMENT ROUTINES #*** 



530 ' ROUTINE TO FIND VAR. ADDRESS PARAMETERS 

535 V 1 =B-65!IFE<48ANDE>57 ANDE02 1 3ANDEO40ANDCFO 1 TH 

EN517 

538 IFE>47ANDE<58MI=E-47!X«USR1 (0)ELSEMI=0 

540 IFE»2130R(E040ANDCF»1)THENZ1=1SRETURNS' EXIT IF NEX 

T BYTE IS AN - SIGN OR IS NOT A PARENTHESIS AND THIS IS A 

N INPUT STATEMENT 

545IFE=40F2=0:F3=0!X=USRl(0)iX=USRl(0)!GOSUB804:iFC*0""T 

HENV2=CELSEIFB>64ANDB<91THENF2=l!V2=B-65'.GOSUB516!X- 

USR1 (0)ELSEIFCF= 1Z1 =1 !RETURN!ELSEGOT0517 

550 IFB04 1 ANDB044THEN5 1 7 

555 IFB=4 1 THENIF(F2=0 AND(V2<0ORV2>=DOHOR(V 1 <0ORV l>=NO 

>G0T0517ELSEZ1=2!RETURN! ' 1-D ARRAY 

560 X =USR1 <0)!GOSUB804;iFCfO""THENV3=C !ELSEF3=1 !V3*B-65 

!GOSUB516!X=USR1(0) 

562 IFBC>4 1 OR(F2=0AND(V2<0ORV2>=DT))OR(F3=0AND(V3<0ORV 

3>=DC))OR(VK0ORVl>=NT)GOTO517ELSEZl=3!RETURN! ' 2-D AR 

RAY -~~ 

564 ' ADDRESS COMPUTATION ROUTINE 

565 ONZ1GOSUB570,575,580!RETURN 
570IFMI>ISTHEN517ELSEC=VF+(V1+MI»26)*4'.X=USR3(0):GOSUB9 

02IRETURN 

575 V7=V1 !V8=V2!F8=F2!G0SUB610:RETURN 

580 V7=V1 !VS=V?:V9=V:?!F8=F2!F?=F3'.GOSUB620!RETURN 
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600 ' ARRAY PORTION OF ADDRESS ROUTINE 

610IFFSTHENV0=VS:GOSUB912ELSEC«V8!X"USR3«»{GO6UB902 

615GC«UB906:C=VA+V7«DO»4:X«USR3<0>:GOSVB900JGOSUB9041 

RETURN!' 1-D ARRAY 

620IFF9THENVO*V9:GOSUB912ELSEC«V9:X"USR3«»JGOSUB902 

625F«4i:X=USR(0):C=VD+4*NT*DT*DC*2#V7»DC!X«USR3<0)M3O8 

UB900:GOSUB904SP=94:X=USR<0)5P«33:X»USR(0>:P-86lX«iUBR«» 

630IFF8=lTHENV0»V8:GOSUB912ELSEC«V8:X»VSR3(0>tGOBUB?0 

635 GOSUB906:GaSUB904:RETURN:' 2-D ARRAY 

699 ' ROUTINE TO EVALUATE SINGLE PRECISION EXPRESSIONS 

7MX=USRl<0>:iFB«205X»USRl(0):GOT0704ELSEIFB0206QOT070 

4 
702El=0:Dl=0:GOSUB902:GOSUB926:GO5UB926!GOTO7141TAKEB 

CARE OF LEADING <-> SIGN 
7u4 GOSUB730 

706 X *USR 1 <0>!IFB*0ORB=4 1 ORB=580RB=59ORB»21 20RB«2 1 30R 
B=214ORB=141ORB»202THENRETURNS'FEEK NEXT BYTE} IF TER 

MINATOR RETURN 

703 GOSUB934!'MOVE INTERIM RESULT FROM 4121H STORAGE 

AREA TO STACK 

710 ' MOVE NEW VARIABLE TO 4121H AREA? POP BCDEl OPERA 

TE 

7l2IF8=205X=USRl<0NGOSUB730:GOSUB936:GOSUB940»GOTO706 

S'ADD 

7 1 4 IFB=206X=USR1 (0KGOSUB730:GOSUB9365GOSUB942«OOTO706 

"SUBTRACT 

7 1 6 IFB=207X=USR1 <0>SGOSUB730JGOSUB936JGOSUB944:GOTO706 

{'MULTIPLY 

7 1 6 IFB=208X=USR1 <0>:GOSUB730}GOSUB936SGOSUB946tGOTO706 

i'DIVIDE 

720 IFB=209X=USR1 <0>:GOSUB730:GOSVB936:GOSUB948:GOTO706 

i'EXPONENTIATE 

722 GOT0517!'ERROR TRAP 

729 ' ROUTINE TO EVALUATE CONSTANTS, VARIABLE6 fir FUNC 
TIONS IN SINGLE PRECISION EXPRESSION & MOVE THEM TO 41 
21H STORAGE AREA 

730 IF(B<58ANDB>47)0RB»46G0SUB822:RETURNS'C0NVERT CON 

stant to 4-byte representation} move it & return 

732ifb=222x«usrk0>:ifb<>40then517elsex»usrl<0hifb<>48t 

hen517elsex»usrh0>:lfbo41then517elsep-205!x«usr(0)sp-2 

4o;x=usr<o>:p=2osx«usr<o);return:'Rnd(o> 

734if(b>220andb<229>orb*217orb"40then756elseifb<63or 

b>90then517!'if function goto 756 

736 v4=b-65!ife>47ande<58thenme-e-47:x«usri (0hz2-1 igot 

0746elseifeo40andeo37thenme-0:z2-l»g0t0746£lseife»3 

7thenz2=4sx=usri <0>:goto746 

738F5=0:F6=0:X-USRl(0)iX«USRK0):G0SUB804iIFC»O""THENV5 

=C!ELSEF5=lSGOSUB515!V3=«B-65«3OSUB516iX"USRl{0> 

740 IFB041ANDB044THEN517 

742IFB=41THENIF<F5»0AND<V5<0ORV5>»DO»OR<V4<0ORV4>»NO 

)GOT0517ELSEZ2*2SGOT0746! ' 1-D ARRAY 

743X=USR1(0)!GOSUB804:IFC$0""THENV6«C:ELSEF6«1SG08UB5 

15:V6=B-65!GOSUB516!X=USR1(0) 

744 IFBO410R<F5*0AND(V5<00RV5>DT)>0R<F6"0AND<V6<00RV 

6>=DC»OR(V4<0ORV4>»NT)GOTO517ELSEZ2"35' 2-D ARRAY 

746 ONZ2G0TO748,730,752,754 

748IFMEMSTHEN517ELSEC=VF+(V4+ME»26>#4tX«USR3<0)JGOSUB 

902!GOSUB932:RETURN 

750 V7=V4:ve=V5:F8=F5:GOSUB610!GOSUB932!RETURN 

752 V7=V4:V8»V5iV9=V6:F8=P5'.F9=F6SGOSUB620iGOSUB932iRET 

URN 

754 V0=V4!GOSUB912!P=34:X-USR(0)!P»33:X»USR(0>iP"63JX»USR( 

0>:P=205tX=USR<0>:P=»204:X=USR<0>:F=10;X«USR<0>:RETURNi'CON 

VERT INTEGER VAR. TO SINGLE PRECISION 

756IFB=40THENGOSUB700:GOTO794!'PARENTHESIS 

758 Q=0+1 

760IFB=221THENGOSUB700:GOSUB952S'SQR 

762 IFB=217THENGOSUB700:GOSUB954!'ABS 

764IFB=223THENGOSUB700:GOSUB956!'LOG 

766IFB=224THENGOSUB700!GOSUB958i'EXP 

768IFB=225THENGOSUB700'.GOSUB960!'COS 

770IFB=226THENGOSUB700!GOSUB962:'SIN 

772IFB=227THENGOSUB700;GOSUB964!'TAN 

774IFB=228THENGOSUB700!GOSUB966'.'ATN 

794 IFB041THEN517ELSERETURN 

800 ' **♦#**»#**«•** CONVERSION ROUTINES •#•*##•#### 

802 ' ROUTINE TO FIND LSB £> MSB OF INTEGER NUMERIC STRI 

NG 
804C*="":iFB=206THENB=45:GOSUB812ELSEGOSUB810!IFC*"""R 

ETURN 



806 C=VAL(C*)iX=USR3(0)5RETURN 

810 IFB<480RB>57THENRETURN 

812 C**C*+CHR*<B)!X=USRl<0>iGOTO810 

814 ' ROUTINES TO FIND LSB & MSB OF ADDRESSES ABOVE 1ST 

32K 

816Z=varptr<c>:ei=peek<z>:di=peek<z+i>:return 

818 c«vt+vi+vi:x*usr3(o>:return 

820 ' routine to convert numeric string to 4-byte sing 

le precision representation 

822 C«=CHR*(B) 

824 X-USR1 (0)5IF(B<58ANDB>47>ORB=46C*-C*+CHR«(B){GOTO824 

826 R!»VAL<Ci)a*VARFTR(R!):El =33!D1 =65:GOSUB702tH"PEEK(I)l 

GOSUB910tP=35:X=USR(0)!H=PEEK(Z+ 1 >!GOSUB9101P«33lX"USR(0M 

H«PEEK<Z+2)5GOSUB910JP=35iX=USR(0)!H=PEEK«Z+3>MK38WB910:Q 

«Q-1 {RETURN 

828 ' ROUTINE TO PARSE SPE 

829 Ql=QSW=MC-625 

830 A=PEEK(Q1 ):POKEW,A:IFA<>OANDA058ANDA039AND<A<21 

20ra>2 1 4)andao202andao 1 4 1 q 1 =q 1 +1 !w»w+ 1 sgoto830 

831 pt=a:q2=qi+i:q=mc-625:rs=q+i 

832 ' restructuring the expression by using parenthes 

ES 

833 OP"0!FORI=RSTOW-l:A=PEEK(I>tIFA=209OP-I!I«W-l 

834 nextsifop=0then840 

835 pr=o:ri =o:fori=op- i toqstep- i :a=peek<d 

836 IFA»41PR=PR+1 
837IFA=40PR=PR-i:iFPR=-lI=Q!GOTO839 

838 IFA>204ANDA<209ANDPR=0R1=I!I=Q 

839 NEXT:iFRl=0RS=0P+r.G0T0833ELSEG0SUB850JRSOP*l :GO 
T0833 

840 RS=0+1 
841OP=0:FORI=RSTOW-liA=PEEK(I)!IFA=207ORA"208OP-I?I«W-l 

842 next!ifop=0thenreturn 
843PR*o:ri=o:fopj»op-itoqstep-i;a=peek<i) 

844 IFA*41PR=PR+1 

845 IFA=40PR=PR- 1 iIFPR=- 1 I=Q!GOT0847 
846IFA>204ANDA<207ANDPR=0R1=I!I=Q 

847 NEXTSIFR1 =0RS=OP+ 1 JGOT084 1 ELSEGOSUB8505RS-OP* 1 !GO 

T0841 

850PR=0:R2=W:FORI=OP+lTOM-liA=PEEK(I):iFA«40PR"PR+l 

832 IFA"41PR=PR-i:iFPR=-lR2=I!I=W-l 

854 IFA>204ANDA<207 ANDPR=0R2=I !I=W- 1 

856 NEXT:G0SUB864:RETURN 

864 FORI=QTORl 8POKEI-1 ,PEEK(I>:N£XTSPOKERl ,40!Q«Q-1SFORI 

■WTOR2STEP-i:POKEI+l,PEEK(I):NEXT:POKER2.415W"W+l!RETU 

RN 

879 ' ROUTINE TO POKE STRING IN TEMPORARY STORAGE ARE 
A 

880 C"MF!X«UBR3<0):GOSUB900tNN=l 

881 IFB-34GOSUB890IRETURN 

882BC«BiGOSUB889!P=19iX=USR(0)!NN=NN+ltIFFP-lANDPEEK(Q 
)-32:Q-Q+liB»32!GOT0882 

884 X-USRK0) 
885IFFP-lAND(B=34ORB=0)GOSUB89d!RETURNl'STRING 

886 IFFP»0AND(B=58ORB=0)GOSUB890iRETURN:'VAR. TRANSFE 
R 

887 IFFP=- 1 ANDB=4 1 ANDE04 1 GOSUB890:RETURN!'VARPTR 

888 GOT0882 
889P-62:X=USR(0):P=BCJX=USR(0):P=18iX=USR(0)!RETURN 

890 BC«0:GOSUB889:IFNN>SLTHENPRINT!PRINT"BTRING TOO L 
ONG'SGOTOS 1 7ELSERETURN 

899 ' »»**•»**••* FREQUENTLY USED MACHINE CODES »***»»* 

900 F»17!X=USR<0>:P=Ei:X=USR<0)iP=Dl!X=USR<0)!RETURNt'LD D 
E,E1D1 

902 P«33iX=USR(0):P=Ei:X=USRtO):P=Di:X-USR(0)iRETURN:'LD H 

L.E1D1 

904 P-25iX=USR(0)iRETURNS'ADD HL.DE 

906 P»41!X«=USR<0):P=41iX=USR(0):RETURN:' ADD HL.HLJ ADD HL 

,HL 

908 p=235ix=usr(0):return!' exc hl,de 

910 p»54:x*usr(0):p=h:x=usr(0):return:'ld <hd,h 

912c«vt+v0+v0jx»usr3(0):p=42;x=usr(0)!p"e1!x«usr(0mp-di: 

x»usr(0)!return!' ld hl,(c1) 

914p"42:x»usr(0)!gosub818:p=eljx=usr(0)!p»dl:x"usr(0kret 

urns'ld hl,(c) 

916P=34SX=USR<0>SGOSUB818:P=EiiX=USR<0>SP*DliX«UBR<0HRET 
URNS'LD <C),HL 

918 F*l WlX*UsR<0>!F*El!X*UBR(0):P*Dl!X=US*<0)!RETURNt'JP E 
1D1 
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920P=1S3:X=USR(0):P=237:X=USR(0)JP=82!X=USR(0)!RETUFKJ'OR 

A) SBC HL.DE 

922 P=40:X=USR<0>!P-3tX=USR<0>:RETURNi'JR Z,3 

924 P=225:X=USR(0):RETURM:'POP hl 

926 P=229:X=USR(0):RETURKt'PUSH hl 

928 P=209:X=USR<0>:RETURN1'FOF de 

930 P=213:X=USR<0):RETURNS'PUSH de 

932P=205:X=USR<0>!P*1771X=USR<0);P=9:X=USR<0>:RETURN»'MOV 

E VARIABLE TO 4121H AREA 

934 P=205:X=TJSR(0)iP=164;X=USR(0)!P=9:X=USR(0):RETURKS'MOV 

E FROM 4121H TO STACK 

936 P= 1 93:X=USR<OKGOSUB928:RETURN:'POP BC & DE 

938 ' arithmetic operation & function routines 

940p=205!x=usr(0):p«22:x=usr(0):p»7:x=usr(0)!return 

942p=205:x=usr(0):p=i9!X=usr(0):p=7:x-usr(0):return 

944P*205)X=USR(0)!P=7i:X=USR<0>lP=8:X=USR<0KRETURN 
946P=205:X=USR<0):P=162!X=USR<0>:P=8}X=USR<0>SRETURH 
948P=205:X=USR(0):P»247:X-USR(0):P=19JX=USR(0)!RETURN 
950P=205:x=USR(0):P=12iX=USR(0):*.P=10:X=USR(0)!RETURN 

952 p=205:x=usr(0):p=23i:x=usr<o):p=19:x*usr<o):returh 
954p=205:x=usr<0>:p=239sx=usr(0>sp=10:x=usr<0)!p»205:x-usr< 
o):p=ii9sx=usr<o);p=9ix=usr<o>!REturn 
956p=205:x=usr(0):p=9:x=usr<o):p=8:x=usr(o>sreturn 

958P=205!X=USR(0):P=57:X=USR(0>!P=20:X«USR(0):RETURN 

9fc0P=205:X=USR(0):P=65:X»USR(0)iP=2i:X=USR(0):RETURN 

962 P=205:X=USR(0):P=7i:X=USR<0):P=21!X«USR(0)!RETURN 

964 P=205:X=USRK»SP"=168:X=USR<0>;F=21!X«USR<0)!RETURN 

966P=205:X=USR(0)5P»189;X»USR(0):P=21:X=USR(0)5RETURN 

968 P=205!X=USR<0>iP=>l 67:X=USR<0):P=40!X-USR<0)$RETURN 

970P=62:X=USR(0)iP=4:X=USRt0)!I*=50iX=USR(0):P»175!X=USR<0« 

P=64SX=USR(0):RETURN 

972P=205:X=USR(0)5P=203JX=USR<0)JP=9tX-USR(0)SRETURN 

974P=205:X=USR(0)!P»EliX=USR(0):P-DlSX=USR(0)iX-USRKO)5RE 

TURNi'USR 

999 ' **«****»•*•«*•#*« MAIN PROGRAM «#••»»*#********###» 

** 

1000 MR=0:PC=2750: # MR IS FOR 48K, 1 FOR 32K } PC IS THE DE 
FAULT # OF PROTECTED COMPILED CODE BYTES FROM TOP OF 

MEMORY 

1002 CLS:PPJNTCHR*(23):PRINTTAB(9)"BASIC compiler":frint 

:PRINT:PRINT"<C> COMPILE n !PRINT"<M> CHANGE MEMORY SIZ 

E"SPRINT"<S> SEE STORAGE PARAMETERS"iPRINT"CQ> QUTTiG 

OSUB522 

1 004 IFA\=67GOTO6620ELSEIFA%=77GOTO6600ELSEIFA\=83GO 
TO6650ELSEIFA%=81THENCLSJENDELSEGOTO1002 

1005 ' »•** MAIN LOOP STARTS HERE **** 

1010 Ml =PEEK(QHPEEK(Q+1 )*256JLKL)=PEEK(Q+2)+PEEK(Q+3)*25 

6;iFLKL>>500THEN1230ELSEGOSUB518tFRINTLl<L)}Mi"i ,, S:L2a> 

M:L=L+liQ=Q+4S'START NEW LINE 

1020 X=USRl(0):iFB=147Q=Ml!GOTO1010t' PEEK FIRST BYTE OF 

NEXT STATEMENT 

1030 IFB=140X=USR1(0>!' LET 

1040 IFB>64ANDB<91ANDE=»37GOSUB2000:GOT01200!' INTEGER 

LET 

1 050 IFB>64 ANDB<9 1 ANDEO37ANDEO36G0SUB535!X=USRl (0>!X 

=USRK0):iF(B=49ANDE=207>OR<B=48ANDE=205)GOSUB4000ELSEQ 

=Q-2!X=USR1(0):IFB0213THEN517ELSEGOSUB8291GOSUB7001Q«Q 

2!B=FT:GOSUB565:GOSUB972:GOTO1200t' S.P. LET 

1060 IFB>64ANDB<91ANDE=36GOSUB4500SGOTO12001' STRING L 

ET 

1070 ifb=178gosub2500!goto1200s' print 
io75ifb=175p=62:x=usr(0):p=i:x=usr(0):p=5o:x=usr(0):p=156:x 
=usr<0):p=64;x=u5r<0):gosub2500:p=62ix*usr<0>!p=0sx=usr«»: 
p=5o:x=usr(0):p=i56:x=usr(0):p=64:x=usr(0)igotoi20oj'lprin 

T 

1 080 IFB= 1 4 1 X =USR1 (0 >1GOSUB804!IFC<OORC>500THEN5 1 7ELSED 

=D 1 !F=E 1 :GOSUB3205!GOTO 1 2001' GOTO 

1090 IFB=134P=205SX=USR(0HP=21 15X=USR(0)iP=l?X=USR(0)lX*US 

Rl(0):GOTO1200!' RANDOM 

1100 IFB=143GOSUB3000!GOTO1200:' IF ... THEN 

1110 IFB=145X=USRK0)iGOSUB804;iFC<lORC>500THEN517ELSED 

=di:f=ei;p=205:gosub330o:gotoi20o:'GOSUB 

1120 IFB=146P=201!X=USR(0):X=USRl(0)iGOTO1200!' RETURN 

1 130 IFB=132THENP=205!X=USR<0)SF=201SX=USR«»$P»=i:X=»USR<0)S 

X=USRK0):GOTO1200i' CLS 

1 140 IFB=137GOSUB2700!GOTO1200:'INPUT 

1150 IFB=129GOSUB5000!GOTO1200:' FOR 

1 160 IFB=135V1=E(FC)JGOSUB914:GOSUB928SGOSUB930:GOSUB92 

6:gosub92o:gosub924:p=35:x=usr(0):p=194:x=usr(0):c=d(fc):x 
=usr3(0):p=ei:x=usr(0)!P=di:x=usr(0):fc=fc-1!Gosub924:x=u 

SR 1 (0>:lFB=58ORB=0GOTO 1 200ELSEGOSUB5 1 5!GOSUB5 1 6 iX-USRl 
(0)!GOTO 12001' NEXT 
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1170 IFB«1300RB-131GOSUB6000:GOT01200:' SET & RESET 

1180 IFB-177GOSUB65001GOTO12001' POKE 

1185 IFB=160GOSUB5500:GOTO1200i' OUT 

1190IFB=128P»205!X=USR<0>5P=157iX=USR(0)a^l0:X'=USR<0):P=20 

i;X»USR(0)lX«USRK0)i' END 

1200 IFB*58ORB«149PRINTT$iSGOTO10205' TEST FOR TERMINAT 

OR & ELSE TOKEN 

1210 IFB=0ORB»147Q=MUGOTO1010ELSE517:' START NEW LINE 

1215 '***« END OF MAIN LOOP »»** 

1220 ' «*•»•*♦** ROUTINE TO ADJUST THE MACHINE CODE JU 

MPS ****** 

1230 PRINTtPRINT" ADJUSTING JUMP ADDRESSES . . ."}!IFK=0G 

OTO1300 

1240FORI=lTOK!DN=PEEK(A(I))+256«PEEK<ACIHl>:X=USR2(0HNE 

XT 

1299 ' *#**** ROUTINE TO EXECUTE THE MACHINE CODE DIREC 
TLY *****»»* 

1300 defusr=mc:cls:print"program compilation comple 

TED"iGOSUB519 

1310 A!-65536+MC:GOSUB520:PRINT"START="}A!!" DECIMAL"}" 

OR "}C»5" HEX"!Cli=C*:A!=65536+M+r.GOSUB520:PRINT"END =" 

}A!}" DECIMAL"}" OR "}C»!" HEX*tC2*=C*!PRINT"IN A COMBIN 

ED BASIC PROGRAM SET MEMORY SIZE";VN+63535:PRINT"OR PR 

OTECT"}-VN}"BYTES" 

1320 GOSUB519{PRINT"PRESS <D> TO DUMP THE COMPILED CO 

DE} <ENTER> TO RUN IT DIRECTLY"iPRINT"PRESS <BREAK> TO 

EXIT'IPRINT'THE DUMP OPTION WORKS ONLY IF YOU USE NE 

WDOS80" 

1 330 GOSUB5221IFAXO 1 3ANDAH068THEN 1 330 

1335 IFA%=68THENINPUT"FILE NAME"}F*;CMD"DUMP,"+F*+V+ 

Cl»+"H,"+C2*+"H"!GOTO1320:' DUMP COMMAND IS FOR NEWDOS 

80} FOR TRSDOS MOD III USE INSTEAD ... 

1340 CLSSX=USR(0)!END 

1400 ' *»*•**»«## END OF MAIN PROGRAM ****♦#****#**# 

1999 ' INTEGER ASSIGNMENT ROUTINE 

2000 Vl»B-fc5!Q=Q+i:X=USRH0):iFBO213THEN517 

2010 X=USR1 (0>5IF(B«49ANDE=207)OR<B=48ANDE=205)THEN2400 
2020IFB*216GOSUB829SGOSUB700:Q=Q2:B=PT:GOSUB970:P=205: 
X"USR<0):P=61!X=UBR(0)!P=l 1!X«=USR(0)SGOSUB916:RETURN;' INT 

2021 IFB»242GOSUB829!GOSUB7001Q=Q21B=PT8GOSUB970SP=205! 
X»USR(0)iP»38:X=USR(0)iP=l liX=USR<0):GOSUB9161RETURN:' FIX 

2022 IFB=215GOSUB829!GOSUB700SQ=Q2:B=FT:GOSUB970:P=205! 
X»USR<0>!P= 1 38:X=USR<0)iP=91X=USR(0)JGOSUB9 1 61RETURNJ' SGN 
2023IFB»239GOSUB829:G05UB700:Q=Q2!B=PT:P=205:X=USR<0)5P= 
138iX«USR(0):P=10!X=USR(0):GOSUB916:RETURN:'CINT 

2024 IFB=222X=USR1 (0)5X=USR1 (0)5GOSUB804:IFC*=""THEN517!E 

LSEGOSUB902:P=205:X=USR(0)iP=204:X=USR(0)lP=20:X=USR(0>SP= 

205:X=USR(0)iP=127:X=USR(0)JP=10:X=USR(0)!GOSUB916:X=USRK 

0)*RETURN.' RND 

2025IFB=193X=USR1(0>:X=USRHO):GOSUB804:IFC»=""THENV1=B 

-fc5}GOSUB515!GOSUB516iX=USRl(0):GOSUB914JC=M+4:X=USR3(0) 

:P=34:X3USR<0)!P=E1:X=USR(0)!P=D1:X=USR(0):GOSUB974!RETUR 

NELSEG0SUB974:RETURN!' usr 

2026 IFBO229THEN2030ELSEV3=V 1 !X=USR1 (0)!X=USR1 (O)iGOSUB 

804SIFC»=""THENV1=B-65:GOSUB515:GOSUB516:X=USRHO>;GOSU 

B9 141F-1 26!X=USR(0)ELSEP=58:X=USR(0):P=E1 :X=USR(0):P=D1 1X« 

USR(0)S' PEEK 

2027P=38iX=USR(0):P=0'.X=USR(0)lP=lli:X=USR(0):Vl=V31GOSUB9 

16:x=usrko)ireturn:' peek 

2030IFB=198V3=VllGOSUB6000:P=42iX=USR(0):P=33:X=USR(0):P= 

65!x=usr(0):v 1 =v3!gosub9 1 61returns' point 

2031 ifb=192x»usrk0>:x=usrl<0)!mf=vn!fp=-l:gosub880!gos 
ub902:p=205:x=usr(0):p=13:x=usr(0):p=38:x=usr(0):p=235:x=us 
r(0)sgosub9 1 6!x=usr1 (okreturni'varptr 

2032 IFB=246X=USRl (0)!X=USR1 (0)!V2=B-65tIFV2<0ORV2>=NS0R 

eo36then517elsex=usrm0):x=usrh0>:x=usrl(0):c=vs+v2*(sl 

+ 1 )1x=usr3(0)!p=58!x=usr(0)!p=e1 :x=usr(0)!p=d1 :x=usr(0)!gos 

ub818:gosub902:p=119:x=usr(0):p-35:x=usr(0):p=54:x=usr(0)i 

p=oix=usr(0):return:' asc 

2034 v2=v1 !g=g- 1 !x=usr1 (0):ifb=206ande>47ande<58gosub80 

4!GOSUB902!GOT02040ELSEIFB=206THENE1=0:D1=0:GOSUB902:G 

OTO2040 

2035GOSUB804:IFC*0""THENGOSUB902ELSEV1=B-65:GOSUB51 

5!G0SUB516:G0SUB91 4:X=USR1 (0) 

2040IFB=58ORB=0Vl=V2tGOSUB916!RETURN 

2045 IFB=206ANDE>47ANDE<53SG=205ELSESG=B!X=USRK0) 

2050GOSUB2060:IFSG=205GOSUB904ELSEGOSUB920 

2055 GOTC040 

206.0 gosub804:ifc*0""thengosub900'.returnelsevl=b-65! 
gosub51 5igosub5 1 6!p=237:x=usr(0r.p=9 1 ix =usr(0)igosub8 18! 
p=ei:x=usr(0):p=di:x-usr(0)!x=usrko)!return 



23*9 ' INTEGER VARIABLE TRANSFER ROUTINE 
2400 ;fB=4?ANDE=207CM« 1 ELSECM=0 

2410 Q*G+1 :X=USRl(0):y.F=VN:FP=0!GOSUB880:GOSUB902:P=205: 
\ - USR<0)!P= 1 3!X=USR(0)iP=38:X=USR(0) 

2420 IFCM=0P=2fc:X»USR(0)tP"U 1 :X»USR<6)tP-l V!X"U8R(0)iP«2M 
X=USR(0>:P*103:X=USR(0)!GC«OB9l6:REfURNS' TRANSFER BASIC 
VARIABLE INTO USR VARIABLE 
2430GOSUB914!P»12S:X-T7SR(0)!P-18t*^lR(6)!F*i l >{X-t;SR{6)jN 

i24:x=usR(0):p^ieix-ustMo)atETORN»' transfer usr VarIabl 

E INTO BASIC VARIABLE 

24*o < PRINT ROUTINE 

25O0X*USRl(0KIFB=58ORB<»PlM3!GdSUfi2670lRETURN 

2502 IFBO64ANDBO96THEN2600BLBBX-USR1 <0> 

2503 ' PRINT @ 

2504IFB<58GC«UB804tC«C+15360)X-V8Rl<0MX"U*R3<0)H3O6UB90 
2ELSEV 1 =B-65!GOSUB3 1 51GOSUBS1 6IXMTSR1 (OMX'UBJli (0MGOSU 
B9 1 4!D 1 «60:E 1 *01GOSUB900!GOSUB904 
2508P=34:X-USR(0>:P=32:X«USR<0):P"64JX»USR(0) 

2599 ' SINGLE PRECISION EXPRESSION & STRING PRINT ROUTI 

NE 

2600IFB>64ANDB<91ANDE«36Q»Q+1!V1-B-65H>VS+V1«<SL+1>!G 

OSUB2680!X=USR1 (0KGOTO2630 

2610 IFB=34B=FEEK<Q>:OQ+l :MF=VN:FF-i:GOSUB8eOJGOSUB268 

0SGOTO2630 

2620Q=Q-l:GOSUB829!GOSUB7001Q»Q2tB«PTJGOSUB970:P-205!X« 

USR(0):P=189:X=USR(0):P»15:X=USR(0)tGOSUB968SIFB"59Pl»32JG 

OSUB2670!' SINGLE PRECISION PRINT 

2630 IFB»44THEN517 

2640 IFB=59X«USR1 <0>:lF8O58ANDBO0THEN2600ELSERETURN 

2650 IFB=58ORB=0Pl=13;GOSUB2670iR£TURN 

2660GOTO517 

2670C=VN:X=USR3(0)JGOSUB902JH=Pl:GOSUB910:P«33JX"USR(0)J 

H=0:GOSUB910:P»43:X=USR(0):GOSUB9681RETURNi' PRINT BYTE 

PI 

2680X=USR3<0>:GOSUB902;GOSUB968iIFB«34X=USRl(0>SRETURN 
ELSERETURNJ' PRINT STRING 
2699 ' INPUT 

2700P=205:X=USR(0);P»179!X=USR(0):P=27iX=USR(0)tP=35:X=USR( 
0):P=205JX=USR(0)!P=10fi:X=USR(0)!P-14!X-USR(0)JX-USRi<0) 

2710ife=37p=205!x=usr(0)'.p=127:x-usr(0)!p-101x»usr(0):v1»b 

-65igosub818jgosub902sf*237sx=usr<0)tp"75:x»usr(0)!p-33:x« 

usr(0)!p=65:x=usrt0):p«113sx=usr(0)jp-355x=usr(0)lp«h2:x-us 

r<o>:x=usri<o>:x*usrho)sreturn 

2720 cf*1 :gosub535:cf»0ip=58:x=usr<0)!p»175:x*usr(0):p-64sx 

=usr(0):p=»222!x»usr(0)jp»4jx=usr(0)jgosub922}p»205}x»usr(0) 

!p=204!x=usr(0) , .p='10jx='usr(0>jgosub563jgosub972:x"usr1(0): 

RETURN 

2999 ' INTEGER IF - THEN ROUTINE 

3000 X=USR1 (0>SIFE037THEN3100ELSEGOSUB3l6iVl«B-65:GOSU 
B9 J 4!GOSUB908!X»USR1 (0) 

3005 IFB=2 1 2 ANDE-2 1 30RB=2 1 3ANDE-2 1 2W 1 «1 !Q«Q+ 1 SGOTO3035 

30 1 IFB=2 1 4ANDE=2 1 30RB=2 1 3ANDE-2 1 4 W 1 *2 !OQ+ 1 JGOTO3035 

30 1 5 IFB=2 1 2ANDE*2 1 40RB=2 1 4 ANDE-2 1 2W 1 =3!Q=Q+ 1 SGOTO3035 

3020IFB=212W1=4 

3025IFB=214W1»5 

3030IFB=213Wl=6 

3035 X=USRH0):iFB<58ORB=206GOSUB804!GOSUB902ELSEGOSUB 

515:uOSOBS16:Vl=B-65!GOSUB914:X=USRl(0) 

3040 IFBO202ANDBO 1 4 1 THEN5 1 7ELSEX =USR1 (0)!IFB=1 4 1 X=US 

Rl (0) 

3045GOSUB804!IFC<0ORC>500THEN517 

3050P=205!X=USR(0)!P=57:X=USR(0):P=10JX*USR(0) 

3055 GOTO3150 

3099 ' SINGLE PRECISION IF - THEN ROUTINE 

3100Q=Q-lSGOSUB829:GOSUB700:Q-Q2:B»PTSE-FEEK<aHGOSUB9 

34 

3 1 05 IFB=2 1 2 ANDE=2 1 30RB«2 1 3 ANDE=2 1 2W 1 - 1 SQ"GH UGOT03 1 35 

31 10 IFB=214AN3>E=213ORB=213ANDE»214Wl*21Q»Q+r.G0T03135 

31 15 IFB=212ANDE=2140RB=214ANDE=212Wl-31G»Q+i:GOT03135 

3120IFB=212W1=4 

3125IFB=214W1=5 

3130 IFB=213W 1=6 

3 1 35 GOSUB829;GOSUB700:Q=Q2:B-FT:E=PEEK<Q):GOSUB936:GOS 

UB950 

3 1 40 IFBO202 ANDBO 1 4 1 THEN5 1 7ELSEX =USR1 (0)!IFB= i 4 1 X -US 

Rl(O) 

31 45 GOSUB804!IFC<0ORC>500THEN517 

3150b=Di:F=El:ONWlGOTO3155,3160,3165,3170,3175,3180 

3155 GOSUB3 1 85 :GOSUB3200!RETURN 

3160 GOSUB3185:GOSUB3190:retURN 



3165 GOSUB3195!RETURN 

3170P=40SX=USR<0>:P*3:X=USR<0«GOSUB3200:RETURN 

3175P»40:X=USR(0)SP=3:X=USR(0)!GOSUB3190:RETURN 

3180 G0SUB3185!RETURN 

3185 F*202SGOSUB3300:RETURN 

3190 P"242!GOSUB3300:RETURN 

3193 P*194!GOSUB3300IHETURN 

3200 P-250:GO6U&3300:RETURN 

3205 F*1955GOSUB3300:RETURK 

3300X»USR<0>JK«fc+l!A<K>«M;F*F:X=USR<0)SP<>:X-USR<0>:RETUR 

M 

3999 ' SINGLE PRECI9ION VARIABLE TRANSFER ROUTINE 

4400 XFB«49ANDE«207THENCM*1ELSECM=0 

4010 X-USR1 WKX^USRl (0):MF»VN:FP=0SGOSUB880iGOSUB902:P- 

20S!X-USR<0)SP=13:X«USR<0)JP=3e:X-USR(0) 

4020IFCM=OGOSUB9081GOSUB932:GOSUB565!GOSUB972:RETURN 

4030GOSUB9301GOSUB565K30SUB932:GOSUB924:GOSUB972:RET 

URN 

4499 ' STRING ASSIGNMENT ROUTINE 

4S00Vl=B-655IFVK0ORVl>=NSTHEN517ELSEMF=VS+VHKSL+l>! 

X-USR1 <0)tX«USRl (0MIFBO213THEN517 

4530 X-USR1 (0>:iFB»247THEN4600ELSEIFB*201THEN4700ELSEIF 

B034THEN517 
4540B«PEEK(Q):Q-0+1SFP«1:GOSUB880:IFB=34X=USR1(0)ELSEB- 

PEEK(Q-l) 
4550 RETURN 

4599 ' STRING ASSIGNMENT USING CHR« 

4600 C»MF:X-USR3«MK3OSUB902 
4610 X=USRl(0MIFBO40THEN517 

4615X*USRl(0WFB>64ANDB<91THENVl=B-65:GOSUB516:X=USR 
l(0):iFB<>41THEN517ELSEP=58iX=USR(0):GOSUB818:P=Ei:X=«USR( 

0)a s "Di:x=usR<0):p=ii9:x»usR<0):GOTO4660 

4620 GOSUB804!H-C:GOSUB910 

4660 X=USR1 10>!IFB-205X«USR1 <0HIFBO247THEN517ELSEF*35SX 

*USR(0)SGOTO4610 

4670 P«35:X»USR(0)JH=0:GOSUB910:RETURN 

4699 ' INKEY» 

4700 X-USR1 (0)JP-205SX-USR(0):P=91 :X=USR(0)1P=3!X=USR(0):C=M 
FSX-USR^OJtGOSUBMZa'-l 1 9! X=USR(0):F*35iX=USR(0):P=54:X=U 

8R(0):p-osx=usr<o):return 
4999 ' for routine 

5000FC=FC+i:D(FC>=M+7:X=USRK0>:GO5UB5i5:GOSUB516:Vl=B- 

65tE(FC>=VltX»USRl«»:iFB0213THEN517 

50 1 X-USR 1 (0)!IFB<65ORB=206GOSUB804: J 1 =0:ID=D 1 !IE=E 1 ELS 

EJ1-1 :V2»B-65iGOSUB516K>VT+V2»2iX»USR3<0)!ID=Dl !IE=E1 !X» 

USRKO) 

5020 IFB0189THEN517 

5030X=USRK0>:iFB<65ORB*206GOSUB804;J2=0:FD=DliFE=ElELS 

EJ2-i:V3=B-65{GOSUB516SX»USRH0):CVT+V3*2:X=USR3(0):FD- 

D1!FE«E1 

5040 IFJ2=0THENP=33ELSEP"42 

5050X=USR<0>:P=FE:X=USR(0>:P=FD:X»USR<0)JGOSUB926 

5060 IFJlaOTHENEl»IE:Dl-IDSGOSUB902 

507 i 0IFJl=lTHENP=42:X»USR<0)lP=IEiX=USR(O):P=ID:X=USR(0) 

5080 GOSUB9161RETURN 

5499 ' OUT 

5500X-USRK0KGOSUB804:iFC*=""THENGOSUB515:V2=B-651Z2=i: 

GOSUB516iX=USRH0)ELSEV2=El!Z2=0 

5510 IFB*44THENX=USR1 (0KGOSUB804ELSEGOTO517 

5520IFCi=""THENGOSUB515!Vl=B-65:Zl=ltGOSUB516!X-USRK0) 

ELSEVl-Ei:Zl*0 

5530 in t -OP=621X»USR<0)5P=V 1 !X=USR(0)ELSEGOSUB9 1 4!P= 1 25! 

X=USR<0) 

5540Vl-V2:iFZ2=0P=21i:X=USR(0):P»Vi:X=USR(0)ELSEGOSUB914 

:P«77tX=USR(0):P-237!X=USR(0):P=12l:X=USR(0) 

5550 RETURN 

5999 ' pnTWT SET & RESET 

6000 IFB* 1 30THEN W» 1 ELSEIFB" 1 3 1THEN W= 1 28ELSEIFB* 1 98THE 
NW=0 

6020MA=M;X=USRKO):IFB040THEN517ELSEX=USR1(0):GOSUB80 
4:iFC*=""THENGOSUB515:GOSUB516iVl=B-65:GOSUB818:t)2=Dl! 
E2=El:C2=lELSEE2=Ei:C2=0:iFBO44THEN517 
6030IFC2=lX=USRH0>:iFBO44THEN517 

6040 X=USRK0){GOSUB804:iFC»=""THENGOSUB515:GOSUB516!Vl 

-B-65!GOSUB818:D3*Di:E3«EliC3=lELSEE3=EltC3«0:iFB04lTHE 

N517 

6050 IFC3= 1 X =USR 1 (0KIFBO4 1 THEN5 1 7 

6076X=USRK0):C*MA+18+C2+C3:X=USR3(0):GOSUB902iGOSUB926 

!Elrl26:bl=7!GOSUB902:P=62:X=USR(0)!P=W!X=USR(0):P=245:X=U 

SR(0) 
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6080 IFC2= 1 THENF=58!X=USR(0)!P=E2:X=USR(0>!P=D2;X=USR<0)EL 

SEP=62!X=USR(0)!P=E2!X=USR<0) 

6090 P=245!X=USR(0) 

6iooifc3-ithenp=58!x*usr«»!P-e3;x*usr(0):p=D3:x=usr<o>el 

sep=62:x=usr(0)!p=e3!x=usr(0) 

6i io ei=8o:di=1!gosub918!RETURN 

6499 ' POKE ROUTINE 

6500 X=USR1 (0>!GOSUB804:IFC*="THENGOSUB515:GOSUB516!V1 
=B-65SGOSUB914!X»USR1(0)ELSEGOSUB902 

6510 IFB044THEN517 

6520 X»USR1 (0KGC)STO804!IFC*=""THENGOSUB515a3OSUB516!Vl 

=B-65:GOSUB8i8:p-58:x-usR(0)jp»Ei:x»usR(0):p=mix*usR(0):x 

=USRH0>ELSEF*62SX«USR<0)!P=E1!X»USR«» 

6540 p=u9;x*usr<o)sreturn 

6599 ' »*»»• initialization routine *»««« 

6600 CLS!PRINTTAB(17)"BASIC COMPILER -"48-MR*16"K SYSTE 
M"!GOSUB519!PRINT"CURRENT * OF PROTECTED BYTES!"FC:PR 
INTMINIMUM IS 750 PLUS THE ALLOCATED SIZE FOR COMPILE 
D CODE IN LINE 6650 

6605 GOSUB519!PRINT"PRESS <C> TO CHANGE THAT NUMBER! A 

NY OTHER KEY TO CONTINUE" SGOSUB522 

6610 IFA\=67THENINPUT"NEW #*5PCSGOTO1002ELSEGOTO1002 

6620MC=-PC-MWU6384!HS»MC+65535!POKE16562,INT(HS/256)!P 

OKE16561,HS-INT(HS/256)*256:CLEAR150!S»="F"!' HS IS MEMOR 

Y SIZE 
6630DEFINTA-Z!DIML1<100),L2{100),A(50),D(25>,E<25)!P=0!Q=0:B= 

o:E=o:x«osM«o:c=osA-o:vi=o^i=oa3i=osvo=osZ"0:L*oai»05FC»o:T 

«-CHR$(32HCHR»(58)+CHR*(32);F»=*C0MPIUNG LINE" 
6650 MR=0:CC*2uO0!SS=20O0!IFSS<CCTHENPRINT"VARIABLE STO 
RAGE OVERLAPS THE COMPILED COD£"tEND!' MR=0 FOR 48K! M 
R=l FOR 32K( CC IS THE ALLOCATED # OF BYTES FOR COMPILE 
D CODE; SS IS THE # OF BYTES BELOW TOP OF MEMORY WHERE 
VARIABLE STORAGE BEGINS 

6660 IS=0JDO=20!DT«101DC«20!SL=30:NO=3JNT*0tNS-4:aS=# OF A 
DDITIONAL S.P. VAR. PER LETTER} DO-DIM OF 1-D ARRAYS? D 
T.DOROW & COLUMN DIM OF 2-D ARRAYS} SL=LENGTH OF STR 
INGSJ NO=# OF 1-D ARRAYS ALLOWED} NT*# OF 2-D ARRAYS A 
LLOWEDi NS»* OF STRINGS ALLOWED 
6670 S1=25!IFSKSLTHENS1«SL 

6680MS=-SS-MR*16384!MC»-CC-MR*16384!OFEEK<16548)+256»P 
EEK(16549)!L»1!K»0!CF«0!M«MC 

6690 VT»-2*26+MS!VF—4#26t(l ♦IS)+VT!VA«-4*NQ*DQ+VF!VD=— 
4*NT»DT»DC-2»NT»DC+VA5VS— NS*(SL+D+VDJVN—(S1+1HVS 
6700 ' MS*END OF VARIABLE STORAGE AREA! MC=START OF M 
ACHINE CODE} VT-START OF INTEGER STORAGE} VF-START OF 
SIMPLE VARIABLE STORAGE} VA=START OF 1-D ARRAY STORA 
GE! VD-START OF 2-D ARRAY STORAGE} VS-START OF STRING 
STORAGE! VN=END OF STORAGE 
6705 IFS«="F"GOTO6730 

6707 CLS:PRINTTABU9)"CURRENT STORAGE PARAMETERS"!GOS 
UB519 

6710 PRINT"# OF BYTES ALLOCATED FOR COMPILED CODE!"CC! 
PRINT"* OF SIMPLE SINGLE PRECISION VARIABLES!" !26*<IS+1>! 
PRINT"* OF 1-D ARRAYS!"NO!PRINT"DIMENSION OF 1-D ARRA 
YS:"DO!PRINT"# OF 2-D AHRAYSS"NT!PRINT"DIMENSION OF 2- 
D ARRAYS!"DT"X"DC 

6720 PRINT't OF STRING VARIABLES!"NS!PRINT"LENGTH OF S 
TRING VARIABLES!"SL!PRINT"TOTAL SIZE OF MACHINE CODE & 
STORAGE AREA!"i-VN!GOSUB519:PRINT"STORAGE PARAMETER 

5 CAN BE CHANGED IN LINES 6650, 6660"!PRINT"PRESS ANY KE 

Y TO CONTINUE"!GOSUB522!GOTO1002 

6730 CLS:PRINTCHR*(23)5PRINT(J450,"B ASIC COMPILER" 

J!PRINT@5 1 4,STRING*(27, 1 76) 

6740 GOSUB7200:CLS!IFNT>0GOSUB7000!' POKE MACHINE CODE 

6 GENERATE CODE TO STORE 2-D ARRAY ADDRESSES 
6750 GOTOIOIO:' END OF INITIALIZATION 

6999 ' ROUTINE FOR CODE TO STORE 2-D ARRAY ADDRESSES 

7000 PRINT'CODE TO STORE 2-D ARRAY ADDRESSES"!C»VD!X= 
USR3<0)!GOSUB9025C*VD+4»NT*DT*DCSX=USR3(0)5P»22UX=USR<0 
)tGOSUB902!C=4»DT:X«USR3(0)!GOSUB900!C=NT*DC!X=USR3(0)!P» 

i:x=usR<o>:p=Eitx»usR(0):F*Di;x=usR(o> 

7005 ' 4«DT IS THE MEMORY LENGTH OF A 2-D ARRAY COLUMN 

; NT»DC IS THE TOTAL # OF COLUMNS 

7010 P=221!X=USR(0)!P=1 17!X=USR(0)!P=0!X-USR<0):P=22l:X=USR( 

0):P=35iX=USR(0)!P=22i:X=USR(0)!P=116iX»'USR(0)5P=0;X-USR(0):P 

=22i:X=USR(0>!P*35:X=USRC0>!GOSUB904!F=131X=USR(0) 

7020C=M-12!X=USR3(0>!P=»1945X=USR(0)!P=El!X=USR<0):P=Di:X=U 

SR(0)!P=5iX=USR(0)!P=14!X«USR(0)!P=255!X=USR(0)!C=M-18iX= ! US 

r3(0):p=242:x=usr(0)!p=e1 !x=usr(0»p=d1 !x=usr(0>!frint!prin 
t:print"main code begins-sreturn 



7199 ' ROUTINE TO POKE THE MACHINE CODE 
7200A=MC-233!FORP=ATOA+232:READB;POKEP,B:NEXT 
7220 DEFU5R1=A+ 1 0!DEFUSR»A+49!DEFUSR2=A+ 1 05!DEFUSR3=A 
+197 

7230 C=A+225!GOSUB816:POKEA+198,Ei:POKEA+199,Dl 
- 7240 C*A+227!GOSUB816:POKEA«-203,E1:POKEA+206,DJ 
7250C=A+230;GOSUB816:POKEA*215,E1!POKEA+216,D1 
7260 C=A!X=USR3<0>!POKEA+1 l,El!FOKEA+12,Dl 
7270 C«A+2SX*USR3<0)!POKEA+41 ,E1 !P0KEA+42,D1 
7280C=A+4!X=USR3<0>!POKEA+32,E1!POKEA+33,D1 
7290C*A+6!X»USR3<0)!POKEA+57,E1!FOKEA+58,D1 
7300 C*A+8!X=USR3(0)!POKEA+50,E1 IPOKEA+51 ,D1 
7310 C-A+177:X*USR3(0)SPOKEA+1 13.E1 SPOKEA+1 14,D1 
7320C=A+183SX*USR3(0)!FOKEA+120,E1!POKEAH21,D1 
7330C»A+189!X=USR3(0)!FOKEA+127,E1!POKEA+128,D1 
7340 C=*A+192!X=*USR3(0)!FOKEA+106,E1 !POKEA+107,D1 
7350DEFFNH2*(Al%>=MID»r0123456789ABCDEF",INT<AlV16Hl 
,l)+MIDi("0123456789ABCDEF",Al\-INT(Al%/16>*16+l,l) 
7360 DEFFNH4NA1 %>=FNH2*(ASC (MID$(MKI»(A1 %),2))HFNH2«(AS 
C(MKI*<A1%)» 
7370 RETURN 

7380 DAT A81 ,0,66,0,69,0,80,0,77,0 
739') DATA33,0,224,205,13,38,235,94,35,86 
74C J DATA26, 1 9,254,32,40,250,1 1 4,43,1 1 5,245 
7410DATA213,33,4,224,205,13 t 38,225,126,18 
7420DATA33,2,224,205,13,38.241,18,201,33 
7430DATA8,224,205,13,38,213,33,6,224,205 
7440DATA13,38,213,26,50,33,65,62,0,50 
7450DATA34,65,62,2,50,175,64,205,189,15 
7460DATA205,167,40,62,2,50,175,64,209,225 
7470 DATA26,94,35,86,18,43,126,60,1 19,254 
7480 DATA0.1 92,35,24,247 
7490DATA33,192,224,205»13,38,213.33,177,224 
7500DATA205,13,38,213,33,183,224,205,13,38 
7510 DATA213,33,189,224.205,13,38,26,1 11,19 
7520DATA26,103,235,221,225,253,225,221,110,2 

7530DATA221,102,3,183,237,82,40,10,221,35 

7540 DAT A221 ,35,253,35,253,35,24,235,253,126 

7550 DATA2,225,94,35,86,18,19,253,126,3 

7560 DATA18,201,76,50,40,48,41,0,76,49 

7570 DATA40,48,41,0 ,68,78,0,65,40,73,41,0 

7590DATA33,225,224,205,13,38,213,33,228,224 

7600 DATA205.1 3,38,225,229, 1 26,1 8,33,23 1 ,224 

7610DATA205,13,38,225,35,126,18,201,67 

7620 DATAO.69,49,0,68,49,0 

7700 ' *«**#***##*## END OF THE COMPILER *###*#*###*#♦#* 

7710 ' THIS VERSION, IN ADDITION TO THE FUNCTIONS SUPPO 

RTED BY VERSION 1 <80 MICRO, OCT 82), SUPPORTS THE FOLLO 

WING! 

7720 ' LPRINT 

7730 ' I%=SGN(SP EXPRESSION) 

7740 ' IVRNDdNTEGER BETWEEN 1 & 32767) 

7750 ' I%=FIX(SP EXPRESSION) 

7760 ' I\*CINT(SP EXPRESSION) 

7770 ' RANDOM 

7775 ' Z\=VARPTR<BASIC niTEGER, STRING OR FLOATING POIN 

T VARIABLE NAME) 

7780 ' Z%«=USR(IV,OR PI), CALL THE MACHINE LANGUAGE ROUT 

INE W/ ENTRY POINT IV OR PI. THIS CAN BE USED WITH STRIN 

G OR INTEGER ARRAY PACKED ROUTINES ENTERED FROM BAS 

IC IN CONJUNCTION WITH THE VARPTR FUNCTION. 

7790 ' SINGLE PREC. EXPRESSIONS ARE EVALUATED IDENTICA 

LLY BY THE COMPILER & THE BASIC INTERPRETER 

7800 ' ARRAYS CAN HAVE BOTH NUMERICAL fc INTEGER VARIA 

BLE INDEXES 

7810 ' 2-D ARRAYS CAN HAVE DIFFERENT ROW & COLUMN DIM 

ENSION (THESE ARE SET AT LINE 6660 AND ARE THE SAME FOR 
ALL MATRICES) 

7820 ' PRINT e,CHR» IS NO MORE SUPPORTED 



CHRISTIAN-ORIENTED BULLETIN BOARD SYSTEMS 

For Bulletin Board System callers, I've heard that the 
following BBS's have a Christian orientation! (215) 932-8829, 
(408) 997-2790, <5l5) 576-0591, and (714) 983-9923. The first and 
third listings are probably more Presbyterian oriented since they 
were listed in the EDP Network News. 
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ASCII FILE ENCODING/DECODING PROGRAM by D*ve 
McGlumphy - While not secure enough for government secrets, 
this program will permit you to temporarily encode your ASCII 
disk files and later decode them. If others have access to your 
disks, you can keep them from reading your intimate love letters 
'vou know - the "boilerplate" love letters you send to all the 
.rls!). Instructions for operation are found in the source code 
comments! so without further ado, here's the program. Have fun! 



795E 63 00650 CODHSG DEFM 'code/decode ' ;T0 IDENTIFY FILE. 

6F 64 65 2F 64 65 63 6F 61 65 20 
706A 31 00660 FLSPEC DEFM '12345678911231567892123456789312' 

32 33 31 35 36 37 38 39 31 31 32 33 31 35 36 37 

383932 313233 34 3536 37 383933 3132 



7(00 

7000 H 
61 76 
20 20 

7013 13 
1F 44 
41 40 

7026 OA 

7027 34 

34 32 

7035 0A 

7036 43 
68 61 
33 37 
34 

7058 OA 

7059 00 



00010 ORG 7000H 
00020 DM DEFH 'Dave HcGlunphy 
65 20 40 63 47 6C 75 60 70 68 79 09 09 20 

00030 DEFH 'CODE/DECODE PROGRAM' 
15 2F 44 45 43 4F 44 45 20 50 52 4F 47 52 

00040 DEFB 10 

00050 DEFH '4429 Paula Ln.' 

39 20 50 61 75 6C 61 20 4C 6E 2E 

00060 DEFB 10 

00070 DEFH 'Chattanooga, Tn. 37115 

74 74 61 6E 6F 6F 67 61 2C 20 54 6E 2E 20 

34 31 35 20 20 20 20 30 32 2F 32 36 2F 38 



02/26/84' 



4445 
3840 
0033 
01C9 
4428 
4020 
10ZD 
4409 
4467 
441C 
002B 
40A7 
0361 
"136 
24 
44X 
70SA00 
7058 00 
705C IF 
705D 00 



0OO80 

00090 CR 

00100 

00110 

00120 

00130 

00140 

00150 

00160 

00170 

00180 

00190 

00200 

00210 

00220 

00230 

00240 

00250 

00261 

00270 

00280 

00290 

00300 

00310 



DEFB 
DEFB 



10 
13 



This progran codes/decodes a PENCIL (ASCII) file by 
adding 1 to (or subtracting 1 fron) the ASCII 
value of each character in the file, stopping with 
an occurrence of 0ON which is used to indicate the 
end of a PENCIL file. It can also "reverse" part of 
the ASCII character set, For example, a space (20H) 
becones a lowercase z (7AH) while an exclanation point 
(21H) becones a lowercase y (79H), and so on. 

You can begin proqran execution by typing 
CODE <ENTER> or CODE FILESPEC <ENTER>, 

Since I use NEWDOS80 alnost exclusively, I don't know 
if this will work with other OOSs, but if it doesn't, 
it's probably just a natter of changing the EOUate 
addresses to nake it work. 



The inspiration for this program was John Krause's 

progran in the January '81 issue of the 

VOICE OF THE '80 newsletter, 10 Richlee Rd., 

Nor walk, Ct., 06851. Thank you John, Alan, and all 

of the Fairfield County TRS-80 Users Group. 

And to Jack Decker for his fearless leadership and 

his book, "TRS-80 ROM ROUTINES DOCUMENTED", 

♦19.95 ♦ FROM T.A.S., (517) 182-8270. 



Caution! You can press <BREAK> to exit while the file 
is being changed, but if you do, part of the file will 
be changed and part won't. And you'll have a $Hf of a 
tine trying to get it right again. You nay want to nake 

00320 ia copy of the file, update the copy, then delete the 

00330 {original if you're satisfied. 

00310 

00350 

00360 

00370 

00380 

00390 

00100 

00110 

00120 

00130 

00410 BKUP 

00450 BRKROH 

00460 BYTOUT 

00470 as 

00480 aOSE 
00490 CURSOR 
00500 DOS 
00510 DOSER 
00520 DSPLY 
00530 EXTFL 
00510 CKKEY 
00550 LBUFPT 
00560 LIFT 
00570 READ 
00580 OPEN 
00590 WRITE 
00600 com 
00610 EOFSW 
00620 ERNF 
00630 FUNC 
00610 ! 



EQU 

eau 

EQU 

EOU 

EOU 

EQU 

EQU 

EOU 

EOU 

EQU 

EQU 

EQU 

EQU 

EOU 

EQU 

EQU 

DEFB 

DEFB 

DEFB 

DEFB 



4445H 

3B10H 

33H 

01C9H 

4428H 

4020H 

402DH 

4409H 

4467H 

441CH 

2BH 

40A7H 

361H 

4436H 

1124H 

443CH 





1FH 



JPOS. FC8 BACK 1 RECORD. 
iBREAK-KEY ROM. 
[DISPLAY SINGLE BYTE. 
(CLEAR THE SCREEN. 
{N80 CLOSE FILE. 
'.CURSOR POSniON LSB. 

!go back to dos. 
;n80 dos error exit. 
in80 display a line. 
in80 extract filespec. 
jroh check for key-press. 
;line input buffer ptr. 
jbasic line input rtn. 
in80 read a record. 

,'N80 OPEN EXISTING a. 
;NB0 WRITE DISK RTN. 
',IF 0, PAUSE. 
il=AT OR PAST EOF. 
{ERASE EOF CHARACTER 
{0l*INC BY 1, FF=OEC BY 1 
!0=REVERSE THE SET. 
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708A 00 


00670 
00680 


DEFB 


13 


{TERMINATE THE FLSPEC 
{ FOR DISPLAYING IT. 


0100 


00690 I0BUF 


DEFS 


256 


{DISK I/O BUFFER. 


718B 03 


00700 
00710 


DEFB 


3 


{TERMINATE THE IOBUF 
{ FOR DISPLAYING IT. 


718C 


00720 START 


EOU 


* 




718C 3E1C 


00730 


LD 


A.1CH 


{IF (HL) O 1CH THEN 


718E BE 


00740 


CP 


(HL) 


{A FILESPEC HAS SUPPLIED 


718F C4D371 


00750 


CALL 


NZ.ASKFL1 


•GET IT. 


7192 21A740 


00760 


LD 


HL.LBUFPT 


{SET UP THE 


7195 36CA 


00770 


LD 


(HL).OCAH 


{ LINE 


7197 23 


00780 


INC 


HL 


! INPUT 


7198 3664 


00790 


LD 


(HJ.64H 


{ BUFFER. 


719A 21A611 


00800 


LD 


HL.41A6H 


{PLUG 


7190 0615 


00810 


LD 


B.15H 


{ THE 


719F 36C9 


00820 BASLP 


LD 


(HL),0C9H 


J DISK' 


71A1 23 


00830 


INC 


HL 


{ BASIC 


71A2 23 


00840 


INC 


HL 


{ LINKS 


71A3 23 


00850 


INC 


HL 


{ WITH 


71A4 10F9 


00860 


DJNZ 


BASLP 


RETURNS (0C9H). 


71A6 CDC901 


00870 


CALL 


as 


CLEAR SCREEN. 


71A9 210070 


008B0 


LD 


HLtDRM 


{POINT AT MY NAME . 


71AC CD6744 


00890 


CALL 


DSPLY 


{IDENTIFY. 


71AF CDC171 


00900 


CALL 


ASKFL 


{WHICH FILE TO CHANGE? 


71B2 CD0272 


00910 


CALL 


GETFL 


{TRY TO OPEN IT. 


71B5 CD1172 


00920 
00930 ; 


CALL 


ASKFN 


{INCREMENT, DECREMENT, 
{ OR REVERSE? 


71B8 CDB472 


00940 


CALL 


CHGCOD 


{ALTER THE DATA. 


71BB CD2844 


00950 


CALL 


aosE 


aOSE THE FILE. 


71BE C36573 


00960 


JP 


DOSERR 


IF ERROR, DISPLAY IT. 


71C1 


00970 ASKFL 


EQU 


$ 


WHICH FILE TO CHC? RTN, 


71C1 216A70 


00980 


LD 


HL,aSPEC 


POINT TO THE FCB. 


71C4 3E31 


00990 


LD 


A.'l' 


DOES IT START 


71C6BE 


01000 


CP 


(HL) i 


WITH A 1? 


71C7 2010 


01010 


JR 


NZ.DSPFL ) 


NO. DISPLAY FILESPEC. 


71C9 21E871 


11020 


LD 


HL.FLHSG ! 


POINT TO WHICH FILE HSG. 


71CC CD6741 


01030 


CALL 


DSPLY J 


PRINT IT. 


71CF CD6103 


01040 


CALL 


LIFT ; 


GET KEYBOARD LINE. 


71D2 23 


01050 


INC 


HL i 


GET TO THE FILESPEC. 


71D3 116A7I 


01060 ASKFLl 


LD 


DE.aspEC ; 


POINT TO THE FCB. 


71D6 C01C41 


01070 


CALL 


EXTFL { 


EXTRACT IT. 


71D9 215E70 


11080 DSPFL 


LD 


HL.COOHSG | 


TELL WHICH FILE 


71DC CD6744 


01090 


CALL 


DSPLY ; 


WE'RE CHANGING. 


71DFC9 


01100 


RET 


; 


TO MAINLINE. 


71EI 57 


S1U0 FLHSG 


DEFH 


'What file do you want to change? ' 


68 61 74 20 66 69 6C 65 20 64 6F 20 79 6F 75 20 




77 61 6E 74 20 74 6F 20 63 68 61 6E 67 65 3F 20 




7201 03 


01120 


DEFB 


3 




7202 


01130 GETFL 


EOU 


t 




7202 116A70 


01140 


LD 


DE,FLSPEC Jl 


>OINT AT FILESPEC. 


7205 218B70 


01150 


LD 


HL.IOBUF j; 


B6-BYTE DISK I/O BUFFER 


7208 0600 


01160 


LD 


B,« {INDICATE 256-«YTE RECS. 


720A CD2441 


01170 


CALL 


OPEN {OPEN THE FILE. 


720D C26573 


01180 


JP 


NZ.DOSERR JIF ERROR, DISPLAY F. 


7211 C9 


01190 


RET 


{TO MAINLINE. 


7211 


01200 ASKFN 


EQU 


♦ {INCREMENT OR DECREMENT? 


7211 214C72 


01210 


LD 


HL,CDDCKS (POINT TO DC/DEC HSG. 


7211 CD67H 


01220 


CALL 


DSPLY {PRINT H. 


7217 


01230 GETFN1 


EQU 


* {DC, DEC, OR BREAK? RTN. 


7217 CD1E73 


01240 


CALL 


CKBRK {CHECK BREAK TO E)OT. 


721A CD2BO0 


01250 


CALL 


CKKEY {KEY PRESSED? 


721D B7 


01260 


OR 


A {CONDITION THE FLAGS. 


721E 28F7 


01270 


JR 


Z.GETFN1 {NOPE. 


7220 FE5B 


01280 


CP 


'Z'+l {LOWERCASE? 


7222 F13372 


01290 


CALL 


P,LHR {YES. FIX IT. 


7225 FE44 


01300 


CP 


'0' {IS IT A D? 


7227 2816 


01310 


JR 


Z.DEC {YES. 


7229 FE49 


01320 


CP 


'I' {IS KEY AN 'I'? 


722B2809 


01330 


JR 


Z.INC {YES. 


722DFE52 


01340 


CP 


'R' {IS IT AN R? 


722F 2817 


01350 


JR 


Z,NINC JYES. 


7231 18E4 


01360 


JR 


GETFN1 {TRY AGAIN FOR VALID PT. 


7233 D620 


01370 LHR 


SUB 


20H {CHANGE LOWERCASE TO 


7235 C9 


01380 


RET 


; 


JPPER i GO BACK. 


7236 


01390 INC 


EQU 


» {DISPLAY KEY J SET INC. 


7236 CD3300 


01100 


CALL 


BYTOUT {DISPLAY THE KEY PRESSED. 



7239 215070 


OHIO 


LD 


HL.FUNC 


;put IN+1 


7318 El 


02150 


POP 


HL 


{RETRIEVE DATA POINTER. 


77% 3401 


01120 


LD 


Ot), 1 


J TO INCREMENT. 


7319 77 


02160 PUTBK 


LD 


(HL),A 


{PUT IT BACK. 


72XC9 


01130 


RET 




:to mainline. 


731A23 


02170 


INC 


HL 


{POINT TO NEXT BYTE. 


723F 


01110 DEC 


EOU 


« 


.•DISPLAY KEY i SET DEC. 


731B 10ED 


02180 


DJNZ 


CHGLP1 


{DO AGAIN IF NOT DONE. 


723F CD3300 


01150 


CALL 


6YT0UT 


{DISPLAY THE KEY PRESSED. 


731D C9 


02190 


RET 




{TOCHGLP. 


7212 215070 


01160 


U> 


HL.FUNC 


{PUT IN -1 (FFH) 


731E 3A103B 


02200 CKBRK 


LD 


A.(BRKROH) 


{BREAK KEY 


7215 34FF 


01170 


LD 


(HD.OFFH 


! TO DECREMENT. 


7321 E401 


02210 


AND 


1 


{ PRESSED? 


7217 C? 


01180 


RET 




[TO MAINLINE. 


7323 C22D10 


02220 


JP 


NZ.DOS 


{YES. 


7218 


01191 NDC 


EOU 


« 


{NO INCREMENT - REVERSE. 


7326 C? 


02230 


RET 




{IF NOT. 


7218 CO3300 


01500 


CALL 


BYTOUT 


{DISPLAY THE KEY PRESSED. 


7327 


02210 WRNGFl 


EOU 


* 


{NOT A PENCIL FILE. 




01511 {FUNC IMS A 1 IN IT ALREADY TO INDICATE "REVERSE". 


7327 213073 


02250 


LD 


HL.BDFLMS 


{X 


72« c? 


01520 


RET 




{TO MAINLINE. 


732AC0A744 


02240 


CALL 


DSPLY 


{ SAY SO. 


721C 0A 


01530 CDDCNS OEFB 


10 


(LINEFEED. 


732D C32D10 


02270 


JP 


DOS 


{GET OUT. 


7210 50 


01510 


DEFM 


'Press <D> to decrement, <I> to increden' 


7330 51 


02280 BDFUC 


DEFM 


'This is not » 


PENCIL or ASCII file.' 


72 45 73 73 20 X 44 3E 20 71 6F 20 44 45 43 7I 




48 49 73 20 49 73 20 4E 4F 71 20 41 20 50 15 * 


45 40 45 4E 71 2C 21 3C 49 3E 20 71 4F 20 49 4E 




13 19 4C 20 4F 72 20 11 53 13 19 19 20 46 49 6C 


43 72 45 40 45 6E 








45 2E 










7271 71 


01551 


DEFH 


't, <R> to reverse' 


7353 0D 


02290 


DEFB 


13 




2C 20 X 52 3£ 20 71 4f 20 72 45 74 45 72 73 « 




7351 


02300 CKEOF 


EOU 


♦ 


{CHECK FOR END OF FILE. 


7285 OA 


01540 


OEFB 


10 




7351 FE1C 


02310 


CP 


1CH 


{END OF FILE? 


7234 AF 


01570 


DEFH 


'or BREAK to exit. ' 


7356 2807 


02320 


JR 


Z.SETEOF 


{YES. 


72 20 12 52 45 41 1B 20 71 4F 20 45 78 49 71 2E 




7358 FE1D 


02330 


CP 


1DH 


{PAST EOF? 


20 










735A2803 


02310 


JR 


Z.SETEOF 


{YES. 


7298 03 


01580 


OEFB 


3 


{END HSG HTH NO C7R. 


735CC34573 


02350 


JP 


DOSERR 


{AN ERROR OCCURRED. 


7299 


01590 SHOW 


EOU 


» 


{DISPLAY THE RECORD. 


735F 


02340 SETEOF 


EOU 


♦ 


{XT EX FLAG. 


7299 212010 


01400 


LD 


HL, CURSOR 


{SET CURSOR POSITION. 


735F 215B7J 


02370 


LD 


HL.EXSW 


{SET EX 


729C 3400 


01410 


LD 


(HL),0 {SCREEN MEMORY 3E0OH. 


7342 3401 


02380 


LD 


(HL),1 


{ SNITCH. 


729E 23 


01420 


INC 


HL 


{CURSOR MSB. 


7341 C9 


02390 


RET 




{TO CHGCOD. 


729F 343E 


01430 


LD 


(HL),3EH 


{(LUC PRTNTB). 


7345 


02100 DOSERR 


EOU 


♦ 




72A1 3A5C70 


01410 


LD 


A.IEREX) 


{CLEAR THE REST 


7365 212010 


02110 


LD 


HL.CURSX 


{SET UP "PRINTe" CURSOR 


72A1 CO3300 


01450 


CALL 


BYTOUT 


{ OF THE SCREEN. 


7368 3400 


02120 


LD 


(H.M8H 


{ HUH SCREEN MEMORY 


72A7 218870 


01440 


LD 


HL.IOBUF 


{POINT TO THE RECORD. 


736A23 


02130 


INC 


HL 


{ POSITION 


72AA CD6744 


01470 


CALL 


DSPLY 


{PRINT IT. 


736B363E 


02410 


LD 


(H.I.3EH 


; xooh. 


72AD 215970 


01481 


LD 


NL.CR 


{PRINT A 


7340 F5 


02150 


PUSH 


AF 


{SAVE ERROR CODE. 


72B0 CD4711 


01490 


CALL 


DSPLY 


{ CARRIAGE RETURN. 


734E3A5C70 


02440 


LD 


A.(EREOF) 


{EREX CHARACTER 


72B3 C9 


01700 


RET 






7371 CD3300 


02470 


CALL 


BYTOUT 


{DISPLAY IT. 


72E1 


01710 CHGCOD 


EOU 


* 




7371 Fl 


02480 


POP 


AF 


{RESTORE THE ERROR CODE. 


72B1 CD1E73 


01720 


CALL 


CKBRK 


{CHECK BREAK TO EXIT. 


7375 C309H 


02490 


JP 


DOSER 


{DISPLAY 8 EXIT. 


72B7 114A70 


01730 


U> 


OE.aSPEC 


{POINT AT FCB. 


7378 


02500 REV 


EOU 







72BA 218870 


01711 


LD 


HL.IOBUF 


!PT TO DISK I/O BUFFER, 


7378 010000 


02510 


LD 


BC,0 


{TO LOX 254 TIMES 


72BOCD3444 


01750 


CALL 


READ 


{GET A RECORD. 


7376 218870 


02520 


LD 


HLJOBUF 


{POINT TO DATA, 


72C0 C15173 


01740 


CALL 


NZ.CKEX 


{SEE F AT X PAST EOF. 


737E 


0Z530 REVLP 


EOU 


$ 




72C3 215B70 


01770 


LD 


HL.EXSN 


{END 


737E7E 


02540 


LD 


A,(HL> 


{GET A BYTE. 


72C4 7E 


01780 


LD 


A,(HL) 


! OF 


737FFE00 


02550 


CP 





{EX PENCIL FILE? 


72C7 FE01 


01790 


CP 


1 


! FEE? 


7381 C8 


02540 


RET 


Z 


{YES. 


72C9 C8 


01800 


RET 


Z 


{YES. RET TO MAINLINE. 


7382 FE20 


02570 


CP 


' ' 


{SPACE? 


72CA C01E73 


01810 


CALL 


CKBRK 


{CHECK BREAK TO EXIT. 


7381 FA9373 


02580 


JF 


M.REVLP1 


{LESS. CO TO NEXT BYTE. 


72CO 3A5D70 


01820 


LO 


A,(Fl*C> 


'WHAT TO DO? 


7387 FE7B 


02590 


CP 


'z'+l 


{GREATER THAN z? 


72D0 B7 


01830 


OR 


A 


CONDITION THE FLAGS. 


7389 FZ9373 


02600 


JP 


P.REVLP1 


{YES. GOTO NEXT BYTE. 


72D1 CC7873 


01810 


CALL 


2, REV 


MEANS TO REVERSE SET. 


738C C5 


02610 


PUSH 


BC 


{SAVE LOOP COUNTER. 


7201 3A5D70 


01850 


LD 


A, (FUNC) 


WHAT TO DO? 


738D17 


02420 


LD 


B,A 


{MOVE THE BYTE TO B. 


72D7 B7 


01840 


OR 


A 


{RECONDITION THE FLAGS. 


738E 3E9A 


02430 


LD 


A.V+20H 


{TOP X REVERX SET. 


72D8 C10073 


01870 


CALL 


NZ.CHGLP 


{TO INC. OR DEC. 


7390 90 


02440 


sue 


B 


{GO TO OTHER END X XT, 


7ZDB C09972 


01880 


CALL 


SHOH 


{DISPLAY IT. 


7391 77 


02650 


LD 


<HJ,A 


{PUT IT IN Ttl BUFFER. 


72DE UAA70 


01890 


LO 


OE.aSPEC 


{POINT TO FCB. 


7392 CI 


02460 


POP 


X 


{RESTORE LOX COUNTER. 


72E1 C045H 


01900 


CALL 


BKUP 


{BACK UP TO CUR REC. 


7393 23 


02A70 REVLP1 


INC 


HL 


{POINT TO NEXT BYTE. 


72E1 C24573 


01910 


JP 


NZ, DOSERR 


IF ERROR, DISPLAY IT. 


7391 10E8 


02480 


DJNZ 


REVLP 


{DO THE NEXT BYTE. 


72E7 CD1E73 


01920 


CALL 


CKBRK 


CHECK BREAK TO EXIT. 


7396 C9 


02690 REVLPX 


RET 




{HHEN 254 (OR EX) DONE. 


72EA 3A5A70 


01930 


LD 


A.(CONT) 


IF (CONT)=0, PAUSE 


7397 21AC73 


02700 PAUSE 


LD 


H, CNTMSG 


{POINT TO CONTDUE MX. 


72FD FDO 


01910 


CP 





TO CHECK RESULTS. 


739A CD67H 


02710 


CALL 


DSPLY 


{PRINT IT. 


72EF CC9773 


01950 


CALL 


Z.PAUX 


(JUST ONE TINE). 


739D 215A70 


02720 


LD 


HL.CONT 


{XT TO CONTINUE - 


72F2 114A70 


01961 


LD 


DE.aSPEC 


POINT TO FCB. 


73A0 3401 


02730 


LD 


(H_),l 


{ (NO FURTHER PAUSES). 


72F5 218670 


01970 


LD 


HL.IOBUF 


PT TO DISK I/O BUFFER. 


73A2 CD1E73 


02740 PAULP 


CALL 


CKBRK 


!<BREAK> TO EXIT. 


72F8 CDX44 


01980 


CALL 


WRITE 


REWRITE THE RECORD, 


73A5 CD2B0D 


02750 


CALL 


CKKEY 


{ANY OTHER KEY 


7ZFB C24573 


01990 


JP 


NZ.DOSERR 


IF ERROR, DISPLAY IT. 


73A8B7 


02740 


OR 


A 


{ TO CONTINUE. 


TTf. 1881 


02000 


JR 


CHGCOD 


DO THE NEXT RECORD. 


73A9Z8F7 


02770 


JR 


Z.PAULP {NO KEY YET, 


7j?0 


02010 CHOP 


EOU 


* 


ALTER THE BYTES 


73ABC9 


02780 


RET 




jCONTINX, 


7390 010000 


02020 


LD 


BC,0 


254 TIMES. 


73AC0A 


02790 CNTMSG 


OEFB 


10 


{LINEFEED 


731'? 218B70 


02030 


LD 


HL.IOBUF 


POINT AT DATA. 


73AD50 


02800 


DEFM 


'Press <BREAK> to exit or arm other key' 


7304 CO0A73 


02010 


CALL 


CHGLP1 


DO IT, 


72 45 73 73 20 X 12 52 15 11 18 X 20 71 4F 2d 




73.i? C9 


02050 


RET 




TO CHGCOD. 


45 78 69 71 20 4F 72 20 41 4E 79 20 4F 71 48 4J 




7jC> 


02040 CHGLP1 


EOU 


♦ 


ALTER DATA BY 1 ROUTINE. 


72 20 6B 45 79 








730A 7E 


02070 


LO 


A,(HL) 


PUT THE BYTE IN A. 


7X3 20 


02810 


DEFM 


' to continue.' 




730E FEOO 


02080 


CP 





IF EOF PENCIL FILE, 


71 AF 20 43 4F 4E 71 49 AE 75 45 2E 




730D C8 


02090 


RET 


z ; 


RET TOCHGLP. 


7X0 03 


02820 


DEFB 


3 


{END MSG WITHOUT C/R. 


730E FEFF 


02100 


CP 


offh ; 


DON'T CREATE A 


71K 


02830 


END 


START 




7310 CA2773 


02110 


JP 


Z.HRNCFL ; 


BYTE. 


00000 TOTAL ERRORS 








7313 E5 


02120 


PUSH 


hl ; 


SAVE POINTER TO DATA. 












7311 215D70 


02130 


LD 


HL.FUNC ! 


POINT TO INC/DEC VALUE. 












7317 84 


02110 


ADD 


A,(HL> ; 


ALTER IT. 
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ASKR. 71C1 

BKUP W5 

CHOP 7300 

CLOSE 1128 

CR 705V 

"OSERR 7365 

MCF 705C 

GETFL 7202 

L1PT 0361 

PAUSE 7397 

REVLP1 7393 

WITE 11X 



ASKFL1 7103 

BRKROH 3810 

CHGLPl 730A 

as I1C9 

CURSOR 1020 

DRH 7011 

EX1R U1C 

GETFN1 7217 

LHR 7233 

PUTBK 7319 

REVLPX 7396 

HRNGFL 7327 



ASKFN 7211 

BYTOUT 0033 

CKBRK 731E 

CNTMSG 73AC 

DEC 723F 

DSPFL 71D9 

FLHSG 71EI 

DC 7236 

MDC 7218 

READ H36 

SETEOF 73SF 



BASLP ft9F 

CDDCHS 721C 

CKEOF 7351 

CODHSG 70SE 

DOS 102D 

DSPLY 1167 

FLSPEC 706A 

IOBUF 708B 

OPEN H21 

REV 7378 

SHON 7299 



BOFLM5 7330 

CHGCOD 72M 

CKKEY 002B 

CONT 705* 

POSER HI9 

EOFSH 7058 

FUNC 7KD 

LBUFPT 10A7 

PAULP 73A2 

REVLP 737E 

START 718C 



ASSIGN THOSE LUN'S by John C. Adams, Jr., 208 Kaywood 
Avenue, Tullahoma, Tennessee 37388 t NOTE! This text file and 
both sample program files will appear on a TAS Public Domain 
Library disk in the near future]! 

Introduction 
In using the Microsoft FORTRAN package on the TRS-80 
Model III computer the F80 compiler utilizes several different 
buffers, or logical units, for passing data to and from external 
devices such as disk drives, line printers, and the video display. 
Unless otherwise specified, logical unit numbers (LUN's) are 
assigned in Microsoft FORTRAN as follows! 

LUN 1 and 3-5 to the screen or keyboard 
LUN 2 to the line printer 
LUN 6-10 to the disk drives. 

In order to perform input and output (I/O) operations, you must 
first open a LUN between the computer and the I/O device. This 
is accomplished through an OPEN subroutine call using the 
following syntax! 

CALL OPEN( logical unit number, 'filename', logical record length ) 

where the logical record length (LRL) is the length in bytes of 

„each record. The LRL must be an integer constant or variable 

hose value lies between 1 and 256! it must be large enough to 

.low storage of all your data for that record. In practice the 

necessary length depends on your FORMAT statements and 

whether you are using direct or sequential disk accessing. 

Most FORTRAN applications utilize an input file, an output 
file, and perhaps a data file for I/O communications between the 
user and the computer. It is up to the user to provide all 
necessary LUN and LRL information within his/her program, as 
well as all corresponding filenames, Enter INOUT, which is a 
general FORTRAN utility subroutine that can be INCLUDEd in 
your FORTRAN program to provide this capability. 

Subroutine INOUT 
Subroutine INOUT assigns LUN's (and corresponding LRL's 
and filenames) for input, output, and data files based on user 
keyboard (interactive) responses to screen prompt messages. 
With reference to the public domain disk file named INOUT/FOR, 
INOUT returns the LUN for the input file (LUNIN), the LUN for 
the output file (LUNOUT), and the LUN for a data file (LUNDAT) 
to the calling program as integer arguments in the subroutine call, 
If any LUN is entered by the user as a value greater than five (5), 
the user is asked to input the corresponding filename and LRL, In 
addition, if the output file LUN is entered as two (2), the user is 
prompted to ready the line printer for output. Any and all OPEN's 
are automatically generated within INOUT based upon the 
user-supplied responses. Note that all output WRITE statements 
in subroutine INOUT are assigned to unit three (3) which is the 
video display while all input READ statements are assigned to 
unit five (5) which also corresponds to the video. 

Given in public domain disk file TESTIO/FOR is a simple test 
program called TESTIO which illustrates how subroutine INOUT 
can be easily INCLUDEd into any FORTRAN program. Once 
INOUT has been called at the beginning of your program, the 
LUN's for input, output, and data files are available for use. Anv 
~"nd all further I/O and associated file manipulations can be 
,erformed using these LUN's, e.g., 

READ! LUNIN, 100 ) AUTO.BIKE.WAGON 
WRITE( LUNOUT, 200 ) HELP.TEMP 
WRITE( LUNDAT ) (PLOT(I),I=1,10) 
REWIND LUNDAT 
ENDFILE LUNOUT 



Program TESTIO contains examples of such LUN usage *»•»•*•» 
binw-y data file is written to LUNDAT, rewound, end read wth 
output to LUNOUT using the number of data entries as controlled 
by input on LUNIN. It is suggested that the following be used ae 
input to TESTIO! 

LUN for Input File (LUNIN) - 5 
LUN for Output File (LUNOUT) ■ 3 
LUN for Data File (LUNDAT) ■= 8 
Name of Data FileiDrive » TESTIO/DATtl 
LRL for Data File (LRLDF) » 100 

Experiment with other values, especially with regard to LRL for 

the data file. ._,, 

It is necessary for the user to plan his/her usage of LUN s 
properly. For example, if there is no requirement for data file 
I/O in your program, simply answer the data file query with a Ala 
number between one and five (don't use two which is reserved for 
the line printer) that has not been used for either input or output 
files. Subroutine INOUT checks to be certain that you have not 
previously assigned a LUN to the current input value} if so, you 
are prompted to re-enter the current LUN using a different value. 
However, there is no checking for duplication of data file names 
or drives in INOUT so that it is the total responsibility of the 
user to assure that all data files are properly assigned. In a 
similar manner it is up to the user to properly assign the LRL s 
for each file based upon the data requirements for that file. » in 
doubt as to the LRL entry, use 256 which is the default value 
assigned by TRSDOS to its files. 

[The following is the contents of public domain disk file 
INOUT/FOR!] 



C=> 
C => 



100 



200 



19 



300 



400 



500 



600 



700 



800 

7000 
8000 
8100 
8200 

830C 
9000 



SUBROUTINE DOUT( LIMN, LUNOUT, LUNDAT ) 

Input LUN's, Nanes, and LRL's 

for Input, Output, and Data Files 
BffEIPRINT 

INTEGERS NAICIF(6), NAHE0F(6), NAHEDF(6) 
DATA NAiGF/Ai' 7, NArEOF/A*' '/, NAMEDF/4*' »/ 
WITEC3.7000) 
HRIT£(3,9000> 
READ(5,8000) LUNIN 
IF ( LUNIN .EQ. 2 ) GO TO 100 
F ( LUNIN ,LT. 6 ) GO TO 200 
HRITE<3,9100> 
READ(5,8100) NAMEIF 
URITE(3,9200) 
READ<5,8000) LUNOUT 
IF ( LUNOUT .EQ. LUNIN ) GO TO 200 
IF ( LUNOUT .LT. 6 ) GO TO 300 
HRrTE(3,9300) 
READ(5,8100) NAHEOF 
IF ( LUNOUT ,NE. 2 > GO TO 100 
NRITE(3,9100) 
READ(5,B200) IPRINT 
HRITE(3,9500) 
READ(5,8000) LUNDAT 

IF ( LUNDAT .EQ. LUNIN .OR. LUNDAT .EQ. LUNOUT ) GO TO 100 
IF ( LUNDAT ,LT. 6 ) GO TO 500 
HRITE(3,9600) 
READ(5,8100) NAHEDF 
IF ( LUNIN ,LE. 5 ) GO TO 600 
NRTTE(3,9700) 
READ(5,8300) LRLIF 
CALL OPENt LUNIN, NAHETF, LRLIF ) 
IF ( LUNOUT .LE. 5 ) GO TO 700 
WRJTE<3,9800> 
READ(5,8300) LRL8F 
CALL OPEM LUNOUT, NAHEOF, LRLOF ) 
IF ( LUNDAT ,LE. 5 ) GO TO BOO 
HRITE(3,9900> 
READ(S,8300) LRLDF 
CALL 0PEN( LUNDAT, NAHEDF, LRLDF ) 
CONTINUE 
RETURN 
FORHATi'O'.'INPUT-OUTPUT-OATA FILE SPECIflCATIONS',/) 

FORMAT* 112) 
FORMAT (6A1) 
FORHAT(lfil) 
FORMAT! 113) 
FORMAT! '0', 'Logical Unit Nurter (1-10) for Input File? ') 



9100 FORMATt ' 

v:(o FORMAT C 

9300 FORHATC 

9400 FORHATC 

WOO FORHATC 

9fOO FORHATC 

9700 FORMAT ( ' 

9800 FORHATC 

9900 FORHATC 
END 



Nanei Drive fol> Input File? ') 

Logical Unit Hunber (1-10) for Output File? ') 

NanelDrive for Output File? ') 

** Ready Printer for Output Print and Enter <P> 



n '> 



Logical Unit Nu«ber (6-10) for Data File? 
NawiDrive for Data File? ') 
Logical Record Length for Input File? ') 
Logical Record Length for Output File? ') 
Logical Record Length for Data File? ') 



[The following is the contents of public domain disk fill 
TESTIO/FORi] 

PROGRAM TESTIO 
C ==> Test Progran for Subroutine INOUT 

DIMENSION VAR(5), VALUE(5) 

DATA PJ73. 1415937 

CALL INOUT( LUNIN, LUNOUT, LUNDAT > 

WRITE! 3, 100 ) LUNIN. LUNOUT, LUNDAT 
10 NRITE< LUNOUT, 200 ) 

READf LUNIN, 300 ) NUN 

IF ( NUN .CT. 5 ) GO TO 10 

DO 20 1=1, NUN 

VAR(I) = SDK HPI/180.0 ) 

HRITE( LUNOUT, 100 ) I, VAR(I) 
20 CONTINUE 

WRITE! LUNDAT ) <VAR(I), 1=1, NUN) 

REWIND LUNDAT 

REAOf LUNDAT ) (VALUE(I), I=1,NUM) 

DO 30 1=1, NUM 

HRITEf LUNOUT, 100 ) I, VALUE(I) 
30 CONTINUE 

ENDFILE LUNDAT 

STOP 
100 FORHATC0','LUNIN=',I3,5X,'LUNOUT=',I3,5X,'LUNDAT=',I3) 
200 FORHATC NUMBER OF SIN TERMS ( <=5 )? ') 
300 FORHATUI2) 
400 FOKHAT(1I4,10X,1F10.6) 

END 
C ==> TNaUDE Subroutine INOUT Stored as /FOR or /TXT File 

INCLUDE INOUT 

TELEPHONE DIALER PROGRAM by Dave McGlumphy - For 
those of you too lazy to dial the phone yourself, here's a program 
to do it for you, courtesy of Dave McGlumphy! 

00010 {DIALER - Dave McGliwhy 442? Paula Lane 

00020 {Chattanooga, Tennessee 37115 03/26/84 

00030 ;«CI# 181-775? 

00040 {This program has radel in defaults but also runs on a 

00050 Inodel 1 without changes, I don't Know about rxxfcl IV 

D0060 ;it controls the "REMOTE" plug of the cassette cable 

00070 {Use that plug to control a nornally-closed rein which 
,is in series with the red or green wire of the phone 





00090 iline ' 


to achieve pulse dialing. 


If it dials too fast 




00100 Jfor your phone systw, increase the pause duration 




00110 {at the two places in the code that say "NTTHIN DIGIT" 


7000 


00120 


ORG 


7000H 




3810 


00130 BRKRON 


EOU 


3810H 


{KEYBOARD RON HUH BREAK 


033A 


00140 BYTOUT 


EOU 


33AH 


{DISPLAY SINGLE BYTE 


0026 


00150 CKKEY 


EOU 


2BH 


{CHECK FOR KEY-PRESS 


01C9 


00160 as 


EOU 


1C9H 


{CLEAR SCREEN 


1020 


00170 CURSOR 


EOU 


1020H 


{CURSOR POSITION LSB 


1105 


00180 DODOS 


EOU 


H05H 


{EXIT 1 DO DOS COMMAND 


102D 


00190 DOS 


EOU 


1D2DH 


{DOS EXIT 


1167 


00200 DSPLY 


EOU 


1167H 


{DISPLAY MSG ON SCREEN 


40A7 


00210 LBUFPT 


EOU 


10A7H 


{LINE INPUT BUFFER PTR 


0361 


00220 LIPT 


EOU 


361H 


{BASIC LINE INPUT RTN 


0060 


00230 PAUSE 


EOU 


60H 


!<BC) DETERMINES DURATION 


103D 


00210 PORTFl 


EOU 


103OH 


{MODEL 1 CASS PORT FLAG 


4210 


00250 P0RTF3 


EOU 


1210H 


{MODEL m CASS PORT FLAG 


7000 


00260 START 


EOU 


» 




7000 Z1A611 


00270 


LD 


HL.11A6H 


{PLUG THE DISK BASIC 


7003 0615 


00280 


LD 


B,15H 


{ LINKS FROM 11A6H 


7005 34C9 


00290 BASLP 


LD 


(HL),0C9H 


{ TO 11EZH 


7007 23 


00300 


INC 


HL 




7008 23 


00310 


INC 


HL 




7009 23 


00320 


INC 


HL 




700A 10F9 


00330 


DJN2 


BASLP 


! WITH RETURNS 



700C 3A5100 


00310 


LD 


A,(51H) 


{check model i/m 


700F X 


00350 


DEC 


A 


« IF MODEL 1 


7010 CC5F71 


00360 


CALL 


Z,H0DEL1 


{INITIALIZE FOR MODEL 1 


7013 21A710 


00370 


LD 


HL,LBOFPT 


{SET UP THE 


7016 36CA 


00380 


LD 


(HU.OCAH 


{ LINE 


7018 23 


00390 


INC 


HL 


) INPUT 


7019 3661 


00400 


LD 


(HL),64H 


J BUFFER 


701B 


00410 MENU 


EOU 


% 


{DISPLAY THE OPTIONS 


701B 21ED71 


00420 


LD 


HL.SCREEN 


{PT AT MENU SCREEN 


701E C067H 


00430 


CALL 


DSPLY 


{PRINT n 


7021 


00440 MENGE1 


EOU 


i 


{WHAT FUNCTION?' 


7121 CDAB71 


00450 


CALL 


GETKEY 


{GET UPPERCASE REQUEST 


7024 FE11 


00460 


CP 


'A' 




7026 2836 


00470 


JR 


Z.ATC 


{YES, PLAY AIR TRAFFIC 


7028 FE12 


00480 


CP 


'B' 


IB? 


702A2838 


00490 


JR 


2,BASIC 


{BRING UP BASIC 


702C FE43 


00500 


CP 


'C 


5C? 


702E283A 


00510 


. JR 


Z.MOOH80 


{BRING UP NODENB0/DC 


7030 FEU 


00520 


CP 


'D' 


!D? 


7032 283C 


00530 


JR 


Z.DIL68M 


{YES. CALL 6800 BOARD 


7031 FE15 


00540 


CP 


'E' 


!E? 


7036 2810 


00550 


JR 


Z,GETPHN 


{YES. GET KEYED PHONE* 


7038 FE16 


00560 


CP 


'F' 


}F? 


7D3A2852 


00570 


JR 


Z,DILCRB 


{YES. CALLCRABAPPLE 


70X FE17 


00580 


CP 


'G' 


IB? 


703E 2856 


00590 


JR 


Z.DILMCI 


{YES. CALL MCI 


7010 FE18 


00400 


CP 


'H' 


!H? 


7012 285A 


00610 


JR 


Z.DILDCS 


{YES. CALL CHRIS SMITH 


7011 FE49 


00620 


CP 


'I' 




7046 285E 


00430 


JR 


Z,DHJSM 


{CALL BUTCH 


7048 FE4A 


00440 


CP 


'J' 




701A 2862 


00650 


JR 


Z.DHPET 


{CALL PETE 


704CFE4B 


00440 


CP 


'K' 




704E2866 


00670 


JR 


Z.BOOT 


{A HALT INSTRUCTION 


7050 FE4C 


00680 


CP 


•v 




7052 2863 


00490 


JR 


Z.DUJOM 


{DIAL NOHACK'S BBS 


7054 FE1D 


00700 


CP 


'M' 




7056 2867 


00710 


JR 


Z.HNG 


{HANGUP 


7058 FE4E 


00720 


CP 


'N' 




705A2868 


00730 


JR 


Z.PIC 


{PICK UP THE PHONE 


705C 


00710 MENUXT 


EOU 


♦ 


{EXIT FROM MENU FUNCTF 


705C 18C3 


00750 


JR 


NENGET 


{GO TO GET NEXT FUNCTL. 


705E 217173 


00760 ATC 


LD 


HL.ATCPGM 


{POINT AT ATC COMMAND 


7061 C305H 


00770 


JP 


DODOS 


{GO DO IT 


7061 217573 


00780 BASIC 


LD 


HL.BASPGM 




7067 C30544 


00790 


JP 


DODOS 


{GO INTO BASIC 


706A 217B73 


00800 MODMB0 


LD 


HL.MODPGM 




706D C305H 


00810 


JP 


DODOS 


{EXECUTE HODEH80/CHD 


7070 21X72 


00820 DIL68H 


LD 


HL*H68PHN 




7073 CDC970 


00830 


CALL 


DIAL 


{DIAL 68HICR0 JOURNAL 


7076 18E1 


00840 


JR 


MENUXT 


{START OVER 


7078 


00850 GETPHN 


EOU 


* 


{GET PHONE* FROM KEYBOARD 


7078 21E371 


00860 


LD 


HL.NBRHSG 


{POINT TO NUMBER? MSG 


707B CD6744 


00870 


CALL 


DSPLY 


{PRINT IT 


707E 2AA740 


00880 


LD 


HL, (LBUFPT) 


{POINT TO INPUT BUFFER 


7081 E5 


00890 


PUSH 


HL 


; SAVE IT 


7082 CD6103 


00900 


CALL 


LPT 


{GET THE NUMBER 


7085 El 


00910 


POP 


HL 


{POINT AT PHONE • 


7084 CDC970 


00920 


CALL 


DIAL 


{DIAL IT 


7089 COA871 


00930 


CALL 


GETKEY 


{PAUSE FOR A KEYPRESS 


708C 18CE 


00940 


JR 


MENUXT 


{STMT OVER 


708E 217772 


00950 OILCRB 


LD 


HL,CRBPHN 


{POINT TO CRABAPPUE PHONE 


7091 CDC970 


00960 


CALL 


DIAL 


{DIAL IT 


7091 18C6 


00970 


JR 


MENUXT 


{START ne 


7096 219872 


00980 DILMCI 


LD 


HLtHCIPtti 1 


{POINT TO MCI PHONE* 


7099 CDC970 


00990 


CALL 


DIAL 


{DIAL IT 


709C 18BE 


01000 


JR 


MENUXT 


{START OVER 


709E 21BF72 


01010 DTLDCS 


LD 


HL,DCSPHN 


fPOINT AT CHRIS' PHONE* 


70A1 CDC970 


01020 


CALL 


DIAL 


{DIAL IT 


70A1 18B6 


01030 


JR 


MENUXT 


{START OVER 


70A6 21E072 


01010 DHHSM 


LD 


HL.HSMPHN 


{POINT AT BOTCH'S PHONE 


70A9 CDC970 


01050 


CALL 


DIAL 


{DIAL IT 


70AC 18AE 


01060 


JR 


MENUXT 


{START OVER 


70AE 210773 


01070 DILPET 


LD 


HL.PETPHN 


{POINT AT PETE'S PHONE* 


70B1 CDC970 


01080 


CALL 


DIAL 


{DIAL IT 


7081 18A6 


01090 


JR 


MENUXT 


{START OVER 


70B6 76 


01100 BOOT 


HALT 




{CAUSES BOOT 


70B7 213873 


OHIO DILHOM 


LD 


nLinUTTII 


{POM AT NOHACK'S PHN 


70BA CDC970 


01120 


CALL 


DIAL 


{DIAL IT 


70BO 189D 


01130 


JR 


HENUXT 


{START OVER 



20 



ntf co7vj 


01141 HNE 


CALL 


HANGUP 


[HANG UP THE PHONE 


70C2 1998 


11151 


JR 


mm 


[START OVER 


70C1 CD9E71 


01141 PIC 


CALL 


PICKUP 


[PICK UP TIC PWNE 


70C7 18V3 


01170 


JR 


HENUXT 


(START OVER 


70C9 


OUH DM. 


EOU 


♦ 


;hl POINTS TO PMm 


7IC9 E5 


11191 


WW 


HL 


[saueit 


78CA C07471 


11211 


CALL 


HANGUP 


{HANGUP THE PHONE 


7ICS I1MII 


01211 


LD 


BC.I 


[DO A LONG 


7ID0 C04IM 


01221 


CALL 


PAUSE 


! PAUSE 


70D3CO8E71 


IIZ3I 


CALL 


PICKUP 


[PICK IT UP. (DWLTONE) 


7106 I1IHI 


•121* 


10 


BC,I 


[MALM 


70D9CD4I0I 


11251 


CAU 


PAUSE 


! PAUSE 


70DCE1 


11241 


rap 


HL 


[RESTORE Pit TO WOW 


7WJ0 2B 


11271 


DEC 


HL 


JPBWT TOBTICOEPM 


7WE E5 


1129* 


PUSH 


HL 


; phone* t save n 


7«f 


11291 sim 


EOU 


• 


[GET PHK HOT 


7MFC00871 


I13M 


CALL 


on 


[BREAK EXITS TO DM 


7IE2 El 


11311 


POP 


HL 


[RESTORE PHONE* PTR 


7K3 23 


11321 


DC 


HL 


[POM TO NEXT ran 


7IE4E5 


11331 


PUSH 


HL 


SAME PKK* Pit 


7KS7E 


11341 


LB 


A, (ML) 


[PUT IN A 


7IE4 FEU 


11351 


CP 


1 


raw 


7IE8 2873 


11341 


JR 


i&n 


IKES 


71EAFEH) 


11371 


Cf 


13 


ftffi? 


7KC2MF 


11381 


JR 


Z.EH! 


JYEB 


70EEFE3I 


11391 


CP 


aw 


;<•? 


7ITI FAOF70 


itu* 


JP 


HaCETQB 


JYB 


7IF3FE3A 


11411 


CP 


OBI** 


5>9? 


7IF5 FZDF7I 


11121 


JP 


P.GLTOK 


STES 


7IFBF5 


11131 


PUSH 


AF 


[SAVE A 


7IF9 CD3AI3 


HW 


CALL 


BT1DUT 


[FOUNT IT 


7IFCFI 


11151 


POP 


AF 


[RESTORE IT 


7IFDD430 


11141 


SUB 


3M 


[CHE ASCOT TO HEW 


70FF FEII 


11171 


CP 


t 


[ZERO? 


7111 2012 


11188 


JR 


tt.HMIMG 


!» 


7113 CAM 


11191 


ADD 


A,ll 




7185 


I1SII HAWK 


EOU 


* 


imx. van to dial 


7115 328773 


11511 


LD 


tPUL9CT>,A 


[SAVE IT 


7118 CD1371 


11520 


CALL 


digit 


[DIAL THE DIBIT 


71 IB I1AB41 


11531 


LD 


BC.25MI 


[PAUSE BCTNEEN 


71 K COMII 


11511 


CAU 


PAUSE 


; DIGITS 


7111 18CC 


11551 


JR 


GETDS 


iOO NEXT DIGIT 


7113 


11541 HOT 


EOU 


1 




7113 3A8773 


11571 


LD 


A,(PUL9CT) 


[♦ PULSES LEH 


7116 FEII 


11581 


CP 


1 


[DOME YET? 


7118 C8 


11591. 


RET 


Z 


[YES. GOTO NEXT OUT 


711? 30 


11611 


DEC 


A 


[SUBTRACT 1 1 


71 1A 328773 


11411 


LD 


(PULSCTM 


[ SAVE IT 


71 ID 3AB473 


11621 


ID 


A, (PORT) 


[PUT CASSETTE PORT • 


7120 * 


11431 


LD 


C,A 


! INC 


7121 3AB473 


11411 


LD 


A, (MODEL) 


[MODEL I/HP 


7121 FEU 


11451 


CP 


1 


!1? 


7124 2815 


•1441 


JR 


Z.DIGH1 


JYES 


7128 3A1M2 


11471 


LD 


A,(P0RTF3) 


[GET PORT SETTINGS 


712S 1813 


11488 


JR 


DICXOR 


[TURN OFF CASSETTE 


712D 3A3D1I 


11491 OIQH 


LD 


A.(PORTFl) 




7131 


•1711 OKXOR 


EOU 


t 


[RESET PROPER MODEL 


7131 216373 


11711 


LD 


HL.CASBIT 


[CASSETTE BIT 


7133 AE 


11721 


XOR 


(HL) 


[TURN OFF 


7131 E079 


11731 


OUT 


(CM 


[ CASSETTE MOTOR 


7134 1 19818 


I17H 


LD 


BC22II 


[PUT DURATION IN BC 


7139 CD4000 


11751 


CALL 


PAUSE 


IWTHDI DIGIT 


71X 3AB473 


11741 


LD 


A, (PORT) 


[MOCH PORT TO CHANGE 


713F 4F 


11771 


LD 


C.A 


[PUT IT IN C 


7111 3A8173 


•1781 


LD 


A.(KDDEL) 


[MODEL 1/UJ? 


7113 FEII 


11791 


CP 


1 


[1 


7115 2815 


018(1 


JR 


Z.DICMA 




7117 3A1M2 


11811 


LD 


A,(P0RTF3) 


[MODEL m PORT FLAGS 


711A 1813 


01820 


JR 


DIGAM) 


[TO TURN ON CASSETTE 


7HC 3A3M0 


01831 DICH1A 


LD 


A.tPORTFll 


[MODEL 1 CASSETTE FIAH 


71* 218373 


11810 DIGAND 


LD 


Hl.CASBIT 


[MODEL CABS HTR BIT 


7152 A4 


01851 


AND 


(HI) 


[ TO TURN IT ON 


7153 ED79 


01840 


OUT 


(C),A 




7155 019818 


01870 


LD 


BC.22II 


[PUT DURATION IN BC 


7158 CD4000 


01881 


CALL 


PAUSE 


[WITHIN DIGIT 


715B 1864 


•1891 


JR 


DICTT 




7150 


11911 EXIT 


EOU 


» 


[HDUSEKEEP 4 EOT 


7150 El 


11911 


POP 


HL 




715E C? 


11921 


RET 






715F 3EFF 


01930 MOB. 


LD 


A.IFFH 


[LOAD PORT KITH 



7161 328673 


I19H 


LD 


(PORT), A ; 


MODEL 1 ADDRESS 


7141 218173 


11951 


LD 


HL.MODEL 


PT TO MODEL BYTE 


7147 3411 


11941 


LD 


(HL)tl i 


INDICATE MOOai 


7149 218373 


11971 


Lfi 


HL.CASBIT i 


PTTOCASBIT 


714C34M 


•1981 


LD 


(HL>,1 1 


PW10HJ 


714E 21E137 


11991 


LD 


HU113N 


SELECT CASSETTE 


7171 3*U 


12111 


LD 


(HL),1 : 


«t 


7173 C9 


IZI1I 


RET 






7171 


12121 HANGUP 


EOU 


t 


HANG UP" THE PHONE 


71713A8473 


12131 


LD 


A. (PORT) 


PUT CASSETTE PORT* 


7177* 


IZM* 


LD 


C,A 


INTOC 


7178 3AH73 


12151 


LD 


a, (ma) 


HHttH-'PUTER? 


717B FEII 


12*61 


CP 


i 


HODEL 1? 


717D28IS 


12171 


JR 


Z.HANBJ 


YES 


717F 3A1M2 


I2IM 


LD 


A,(P0RfF3) 


GET CASS PORT FLAGS 


7182 1883 


12191 


JR 


HANNTJR 


■GO TURN OFF 


71M3A3DM 


821*8 HANG1 


LD 


MPORTFD 


GET NBDVCABS PORT FUGS 


7187 218373 


12111 HANXOR 


LD 


HL.CABBTT 


MODEL CA68 HTR BIT 


718AAE 


12121 


XOR 


(HL) 


TOTURKVOT 


718BED79 


12131 


OUT 


(C),A 


TURN 0FF> MOTOR 


718DC9 


1214* 


RET 




FROMHAUMP 


718E 


1215* PICKUP 


EOU 


* 


PICK UP THE PHONE 


718E3AB473 


12141 


LD 


A,(PBRT> 


(POT CASSETTE PWI* 


7191 f 


12171 


LD 


C,A 


INTOC 


7192 3A8173 


12181 


LD 


A, (MODEL) 


.MOCH 'PUB*? 


7195 FEU 


12191 


CP 


1 


MODEL 1? 


7197 2813 


12211 


JR 


Z.PICK1 


YES 


7199 3A1M2 


•2211 


LD 


A,(PORTF3) 


GET CASS PORT FLAGS 


719C 1813 


•2221 


JR 


PICAND 


GO TURN ON 


719E3A3D40 


12231 PICK1 


LD 


A.(PORTFl) 


GET MODI CASS PORT FLAGS 


71A1 218373 


02211 PICANO 


LD 


HL.CASBIT 


[MODEL CASS HTR BIT 


71M A4 


•2251 


AND 


(HL) 


[ TO TURN ON 


71A5ED79 


02240 


OUT 


(O.A 


[TURN ON MOTOR 


71A7C9 


02271 


RET 




[FROM PICKUP 


71ASCDOB71 


02280 CETKEY 


CALL 


CKBRK 


[<BREAJO EXITS TO DOS 


71AB 3EII 


02290 


LD 


A,l 


[CLEAR KEY BUFFER 


71AD CD2BBS 


02311 


CAU 


CKKEY 


[KEY PRESSED? 


7181 87 


12310 


OR 


A 


[CONDITION THE FLAGS 


71B1 28F5 


02321 


JR 


Z.GETKEY 


[NO KEY PRESSED 


7163 F5 


1233* 


PUSH 


AF 


[SAVE A 


71M D0212MI 12310 


LD 


K.CURSOR 


[SET UP PRINT* POSITION 


71BB3E58 


12351 


LD 


flf 3W1 


; at 


71BA D077II 


12341 


LD 


(EO.A 


[ END 


71BD3E3F 


02371 


LD 


A.3FH 


1 OF 


71BF DD77I1 


12381 


LD 


(IX+1),A 


[ MENU 


71C2 3E1F 


12391 


LD 


A.31 


[ERASE EOF 


71C1 CD3AI3 


12111 


CAU 


BTTOUT 


[DOIT 


71C7 3EK 


12111 


LD 


A, 14 


[TURN CURSOR 


71C9C03AI3 


12121 


CAU 


BYTOUT 


[ ON 


71CCF1 


•2131 


POP 


AF 


[GET A AGAIN 


71CDF5 


12411 


PUSH 


AF 


[SAVE IT AGAIN 


71CECD3A03 


12151 


CAU 


BYTOUT 


[PRINT n 


71D1 Fl 


12441 


POP 


AF 


[RESTORE A 


71D2FE5B 


02471 


CP 


'Z'+l 


[LOWERCASE? 


71D1F8 


02481 


RET 


H 


!NQ 


71D5D420 


12491 


SUB 


2 OH 


[MAKE IT UPPERCASE 


7107 CT 


025M 


RET 




[WITH KEY IN A 


71D8F5 


' 12511 CKBRK 


PUSH 


AF 


[SAME A 


7109 3A1038 


12520 


LD 


A.(BRKROH) 


[BREAK KEY 


710C E4I1 


12530 


AND 


1 . 


[ PRESSED? 


710EC22D40 


12541 


JP 


NZ.DOS 


[YES 


71E1 Fl 


12551 


POP 


AF 


[RESTORE A 


71E2C9 


12540 


RET 




[NO 


71E3I8 


02570 NBRMSt 


DEFB 


6 


[BACKSPACE CHARACTER 


71E4* 


12581 


DEFM 


'NUMBER? 


/ 


33 10 12 15 52 3F 19 








71EC 03 


12590 


DEFB 


3 


[END LINE KITH ND C/R 


71ED 1C 


12411 SCREB 


DEFB 


1CH 


[HOME CURSOR 


71EE IF 


02411 


DEFB 


1FH 


[EREOF (CLEAR SCREEN) 


71EF 11 


02420 


DEFM 


'A. ATC 




«BR£AK> 


EXITS ' 








2E 09 11 51 13 19 09 09 09 28 X 12 52 15 111 


i 


3E 0? 15 58 19 51 53 09 






7218 51 


12430 


0EFM 


'TO DOS,) 




IF 19 H f 53 2£ 29 








7210 OA 


12440 


DEFB 


10 




7211 42 


12451 


DEFM 


B. BASIC 




2E 09 12 41 53 19 43 








7219 OA 


02440 


DEFB 


10 
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\1A 13 02470 DEFH 


'C. H0OEHBT 


2E09«*H15»38 30 




7224 OA 02480 OEFB 


11 


7225 M 02490 DEFH 


'0. 48MCW JOURNAL.... 


ZEI93438«191352*091A*3552*41 


1C2E2E2E2E 09 




723C 38 02700 H48FHN DEFH 


'812-4809' 


31 32 20 34 38 31 39 




7241 II 12711 OEFB 





7215 M 12721 OEFB 


11 


7214 15 IZ73I DEFH 


'E. ENTER A NUIXR TO VOL 


2E0915C51453209 41 09 € 53 • 42 « S2 


I9 54*MH19«« 




7Z5F OA 02710 DEFB 


11 


7241 14 I27SI DEFH 




ZE091332 4H2 41S050*«2ES2E2E2E 


2E2E2E2E2E09 




7277 38 02741 CRBFUt DEFH 


tflHMS' 


37 35 20 34 3133 35 




727F II (2771 DEFB 


1 


7281 M 02780 DEFB 


11 


728117 02790 DEFH 
2£M«43 49 2ESff 2E2E 




2EZ2E2E2E2E 


2E2E2E2E2E09 




7298 31 02800 HOP* DEFH 


'HH-323-7751' 


203830302D3332332D37373531 


72*4 II 12811 OEFB 


1 


72A7M 12821 OEFB 


11 


72*8 18 12831 DEFH 




2£I913«52193309S3«49SHB2E2E2E 


2E2E2E2E2EN 




72BF3B 02840 DCSPHN DEFH 


'899-3377' 


3? 3? 20 35 33 37 37 




72C7 II 02850 DEFB 





72C8M 12841 DEFB 


11 


72C9 19 12871 DEFH 




2£I9 12 555113«2E2E2E2E2E2E2E2EZE 


2E2E2E2E2E 19 




7X1 31 12881 M5HF1« DEFH 


'1-411-495-3034' 


2034 3131203439352033313534 


72EE II 12891 DEFB 





72EF IA 12911 DEFB 


11 


72FI IA 12911 DEFH 


J* rtTtt ♦* * i * • ** • ni*# 


2E09 50 1551452E2E2E2E2E2E2E2E2E2E 


2E2E2E2E2E 19 




7317 38 12921 PITPHH DEFH 


'87M321' 


37 30 20 31 33 32 31 




73IF II 12931 DEFB 


1 


7311 IA 12910 DEFB 


11 


7311 « 12951 DEFH 


'K. BOOT DC SYSTEH' 


2E0912« : *51095H8«0953S9535H5 

4ft 


7323 »A 12941 OEFB 


10 


7321 1C 12971 DEFH 




ZE09 571F«1113*I91212532E2£2£2£ 


ZE2E2E2E2E 89 




7336 38 12981 HOHPIM DEFH 


'891-1134' 


39 31 20 30 31 33 34 




7313 01 12991 DEFB 


1 


7311 M I3III DEFB 


10 


7315 V 13010 DEFH 


'H. HANC UP THE MM' 


2£I918 11*1709535009511B«09501B 


*■*« 




7359 OA 13120 DEFB 


10 


735A * 13030 DEFH 


'N. F1TK tf> THE FHK 


Z£09 50 1913«09555009511815095049 


1F*«09 09 




7371 03 03040 DEFB 


13 


7371 11 I3t9« ATCPCH DEFH 


'ATC 


51 13 




7371 ID 13040 DEFB 


13 


7375 12 03171 BASFGH DEFH 


'BASIC' 


11 53 19 13 




737A 00 03080 OEFB 


13 


7376 « 03090 HODPCH DEFH 


'MXEHBO' 


IF H15«38 30 




7382 OD (3100 DEFB 


13 


7383 02 03111 CASKET DEFB 


2 ;hth cassette htr in 


7381 03 03120 flflDEL DEFB 


3 {Kin (WOWL 1) 


7385 FF 03130 PORT1 OEFB 


offh ;hi cassette ran 



73843C 




03110 PORT OEFB 03CH 


5Hm CASSETTE PORT 




73B7I0 




03150 PULSCT OEFB 




{PULSE COUNT 




7000 




03140 


EM 


) START 










•0001 TOTAL ERRORS 
















ATC 


7I5E 


ATCPGH 


7371 


BASIC 


7041 


BASLP 


7105 


BASPOI 


7375 


BOOT 


7064 


BRKRON 


3810 


BYTOUT 


033A 


CASBIT 


7383 


CXBRK 


7108 


CKKEY 


002B 


as 


I1C9 


CRfiPHN 


7277 


CURSOR 


1020 


DCSPHN 


72BF 


DIAL 


70C9 


DIGAND 


711F 


digit 


7113 


DICM 


7120 


DXGH1A 


71* 


DIOBR 


7130 


DJL48H 


7071 


DUCRB 


708E 


DILOCS 


7I9E 


mua 


7094 


DUPET 


70AE 


DTLMOH 


7087 


DILUSfl 


70A4 


DODOS 


1105 


DOS 


WD 


DSPLY 


1147 


EOT 


7150 


GETDIC 


70DF 


CCTKET 


71A8 


GETPHN 


7078 


HANH 


7181 


HANGUP 


7171 


HANXOR 


7187 


HAVDK 


7105 


NNC 


7IBF 


UWFPT 


HA7 


LPT 


0341 


■worm 


723C 


HCDMI 


7298 


HENGET 


7121 


MENU 


701B 


NENUXT 


70SC 


MODEL 


7381 


HOOEU 


715F 


HODNBO 


704* 


HODPCH 


737B 


lefioMetSf* 


71E3 


PAUSE 


0040 


PETFW 


7387 


PIC 


70C4 


PKAND 


71A1 


piaci 


719E 


PICWF 


718E 


PORT 


7384 


PORT1 


73B5 


P08TF1 


4030 


PORTF3 


1210 


PULSCT 


7387 


SCREEN 


71ED 


START 


7011 


MOHPHN 


733B 


UCIHII 
N3ITt1I 


72E0 















CHRISTIAKS AND COMPUTERS - I have recently heard about 
several organizations which serve Christians using computers. In 
previous issues of Northern Bytes* I have mentioned Christian 
Computer-Based Communications, 44 Delma Drive, Toronto, 
Ontario M8W 4N6. In addition, I have learned of the existence of 
the EDP Network News, which is "a newsletter for Presbyterians 
interested in church uses for computers." To get the newsletter 
without charge for the balance of 1984, contact EDP Network 
News, Roberta Farrett, Synod of the Covenant, 6172 Busch 
Avenue, Suite 3000, Columbus, Ohio 43229. Finally, the Church 
Computer Users Network was begun by United Methodists a 
couple of years ago, but I hear that they welcome participation by 
Christians of other denominations. Memberships are sl5 a year 
and they publish a newsletter. For information contact Clyde 
McDonald, 159 Ralph McQill Blvd., Atlanta, Georgia 30365. 

EXPRESSION INPUT ROUTINE by Bill Coulter - This is a 
tiny routine that helps certain BASIC programs. It allows any 
valid BASIC expression to be entered at the INPUT prompt. For 
example, the dialogue with a function-plot program might go this 
way (keyboard entries underlined)! 

X value? LOO(7) 
Y value? EXP(PI/2) 

The program would proceed with the intended values. The reply 
for X will work in any casei the reply for Y will work provided PI 
has already been assigned a value by the program. I much prefer 
this to copying values from a 840 calculator over to a 0)2000 
computer! 

The BASIC code for handling the input to X (above) is! 

10 LINE INPUT "X value? "{Us! X • USR(O) 

See the program listing below for a complete example. 

Two ROM routines are called up, both documented in 
Decker's fine book. Let LINE INPUT Us take the user's reply; the 
text will be in BASIC'S input buffer. The routine at 1BCOH is 
called to reduce the text to token form. Then the evaluation 
routine at 2337H is fired! if successful it deposits the result in 
BASIC'S ACCUM at 4121H. Since the interpreter thinks it's 
processing program code, error trapping should be used to keep 
the game going. 

The USR code - both POKE values and Z80 - is in lines 1000 
through 1030 of the sample program listing below! 

10 USS--0123456789"! PI-3.14159265! E»2.7182818 

20 U»VARFTR<US*>! U=FEEK<U+l)+256#PEEK(U+2)i DEFUSR=U 

30 FOR I»U TO U+9! READ U! POKE I,U! NEXT 

99 ON ERROR GOTO 2000 

100 LINE INPUT "X value? "!U«! X*USR<0> 

101 PRINT TAB(10+LEN(US)) CHR$(27>"« "X 

110 LINE INPUT "Y value? "!U»! Y=USR(0) 

111 PRINT TAB(10+LEN(U*»CHR»(27)"= "Y 
120 PRINT STRING«(30,131 )! GOTOIOO 

lOOO DATA 42,167,44!' LD HL,(40A7H) !HL=>INBUF 

1010 DATA 205,192,27!' CALL 1BC0H STOKENI2E 

1020 DATA 35!' INC HL !FIX POINTER 

1030 DATA 195,55,35!' JP 2337H iEVAL £ RET 

2000 PRINT ••**« INPUT ERROR - TRY AGAIN." 
2010 IF ERL=100 THEN RESUME 100 
2020 IF ERL=UO THEN RESUME 110 
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^mMM * mMMmmm m m \*u i MMMMmmmmm i m m mmmmmmm i 



Piratable 
Software 

For Your TRS-80 



(Modcb I, III and 4) 



Double sided "flippy 
diskettes filled with 
excellent public domain 
software. 




j^vff ■ 



Three volumes 
Available NOW! 
$10 per volume. 



t TIE 



ALTERNATE 

SOURCE ss 



704 North Pennsylvania • 
Ml 4890o 
488-8970 

TRS-80 is a Trademark of the Tandy Corporation 



OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOttO; 

Well Keep You Compatible 



In today's cunvjislillM m ar ket , porlaoMty is the 
nam of th« some. H too haw HMO Mood l/IH 
te^oi*orf4odcJ4se4tvJore,aadyaawaottoruaM 



IN 
OUT 



TRS40 Model 4 and 0000 oad Sanyo 
morhet. Wo hono U doi ens of I H d c Ho w 



hi Jest o short data (dopoJMtaf oo length), 
■ASK proaraai wm* be ready to nm oo the 



Wo fat several 






tlM 00 KM screen. WO take • 
, pass wo oOow too to spodfy 



i do that i 

video screen. Oenereay, aftor c oou of trn i • 
oroyam. Too nun* choose «0 too THNT 9* 
statements, Indadhi] thoii defined with out labial, 

Ml 

of toot, 

OR 'offMt'. 

Perhaps too want your scraca "mdentcd" debt 
spaces. Ilfhty characters (the TRSDOS *Ji aod 
MSDOS screen width), minus shttrfoor characters 
(the "old' TRS-00 screen width), b sbtteen. Oar 
prof/an w« let too pot eight spaces oo each side 
of the currently defined screen sknpfv by typhis, 

XO 

Aod perhaps yoo want to move the aristing i 



pros"'— on the market. No need to 



y« 



VO iVOoTty OOOOt VMflll 

Vra HOW oooWO VlfOC COwww*oww«» somsjsjoivioif i 

oo the way. Make sore yoo specify which < 

yoo'ro using! Chech oot oar low prices, too. Ouy a 

copy for a friend aod do toot friend, TAS aod 

yoorsetf a favor! 

■ASANTO oad OASOOOOare iSt.tS urn* S ep t em b er 

1, 1004. After that dote, $40.05. 0AS34 is $00.05 

with oo planned price increase. The two MSDOS 

versions include routines that win convert fro* I, III 

AND 4; 0AS34 just includes the routines to convert 

from Mod el s I and III to Model 4. Mease inchidc 

throe bocks for our shipping d epo r tment They're 

Ih i coton i s to so oo welfare. 

The Alternate Source is located at 704 North 

Pennsylvania Avenue, Lansins, Ml, 4M04, Phone 

(517) 4St-M 70. 



Out you don't have to worry about a lot of 
commands. Vou can set the bal roOius this easayt 

ooooooooooooooooooooooooooooooooc 

NORTHERN 0VTES 

c/o Jack Docker 

1004 West 10th Street 

Lot * 155 

Sauk Ste. Marie, Miction 40703 

MCI Mail Address: 100-7413 

Tctex: 0501007413 

(Answerback: 0501007413 MCI) 

POSTMASTIR: If undeliverabla return to: 

Hm Mmim* Iomkc, 7M H. r^MUTtaMia, Unatof, Ml 4ttM 



To: 



